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A Microsoft tem 120 programas em fitas e disquetes à sua disposição 
São sistemas aplicativos para acompanhar e agilizar os negócios 
desua empresa. E também jogos eletrônicos para você e sua família 


se divertirem muito. Todos especiais para TK-83, TK-85; 
"TK~2000, Apple le compatíveis. E todos com a mesma qualidade 

dos 100.000 programas já vendidos em todo o Brasil: - 

Procure o revendedor Microsoft mais próximo (se não encontrar os 
irogramas Microsoft escreva para a Caixa Postal 54221 - CEP 01000' 
S. Paulo-SP). Você encontrará os melhores programas da sua vida.. 
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EDITORIAL 


O artigo Inteligência Artificial que publicamos na última 
edição de Microhobby, gerou algumas indagações, realmente 
merecedoras de discussão. Antes de determinarmos, porém , 
se uma máquina pode ser inteligente devemos nos perguntar 
o que é um ser inteligente. 

Atualmente , muitas pessoas sensatas e inteligentes do 
mundo inteiro estão se perguntando, seriamente, se é válida a 
matança indiscriminada de baleias e chimpanzés. Os critérios 
para estas indagações não são de defesa ou respeito à vida em 
si. Se assim fosse morreríamos todos de fome, pois até um pé 
de alface é um ser vivo. Na realidade, o princípio ético que nos 
faz rejeitar esta matança é o do respeito à inteligência, ao ser 
senciente (pensante). 

Alguns primatas, destacadamente o chimpanzé, 
evidenciam um comportamento e uma aptidão Hngüística que 
os colocam a um nível muito próximo dos seres humanos. 
Todos os cetáceos (golfinhos, baleias, toninhas e os demais 
mamíferos aquáticos) exibem códigos de comunicação ainda 
não bem decifrados, mas que denotam uma inteligência 
assustadoramente próxima da nossa. 

O argumento dos que defendem a matança é linear: 

"afinal não passam de animais". Este é um argumento pura e 
simplesmente racista, de "redneck". Ê como se, em relação 
ao ho/ocasto nazista, alguém dissesse "afinal não passam de 
ciganos ou judeus". Ou então, como se um bom argumento 
anti-abolicionista fosse: "ora, não passam de negros". 

Em cima da mesa da maioria de nossos leitores, existe 
uma minúscula semente que, ao germinar, pode produzir algo 
tão gigantesco que tornará estas polêmicas atuais parecerem, 
no futuro, frivolidades de adolescentes desocupados (aliás é 
assim que os "rednecks"as classificam). 

Esse seu pequeno computador que você programa com 
tanto prazer, com quem você dialoga apesar de sabê-lo surdo, 
que você xinga quando não carrega aquele maldito programa 
daquela maldita fita, passada naquele maldito gravador, que 
você beija quando descobre que conseguiu eliminar o grilo no 
programa, é um remoto ancestral maravilhoso, mas 
assustador. 

Num futuro, talvez não tão remoto, a humanidade vai ter 
que assumir um tipo muito peculiar de paternidade: as 
máquinas inteligentes e sencientes. 0 complexo de Frankstein 
faz com que muitos não aceitem essa possibilidade, mas uma 
análise fria da curva do progresso tecnológico na área de 
cibernética (tão impropriamente alcunhada de informática) 
mostra o aparecimento de máquinas tão ou mais inteligentes 
que o homem, é praticamente fatal. 

Nesse momento vou fazer uma proposta com meus 
leitores: dentro de 30 anos no máximo, algum órgão do poder 
Legislativo provavelmente o Congresso americano — vai estar 
votando uma emenda à Constituição, determinando se é ou 
não um assassinato o ato de se desligar certas categorias de 
computadores sem seu prévio consentimento ("seu" aqui se 
refere ao computador!). 

Só espero duas coisas quando este dia chegar: que 
estejamos todos vivos para que eu possa cobrar uma cerveja 
de cada um de vocês, e que possamos olhar para trás e 
encarar como um pesadelo do passado, aquela época em que 
nem a inteligência dos próprios sêres humanos era respeitada. 



3) Soma Sintática: Estamos pu¬ 
blicando novamente o programa Soma 
Sintática a pedido de muitos leitores 
que, por terem feito sua assinatura 
após à sua publicação, escrevem-nos 
solicitando a listagem deste programa. 

Antes de digitar um programa, 
carregue o programa Soma Sintática e 
depois coloque-o na RAMTOP. Digite 
logo em seguida, o programa exata¬ 
mente como ele é apresentado e veri¬ 
fique se a Soma Sintática confere com 
o valor fornecido, através da instru¬ 
ção: 

Estamos procurando a cada nú- Esta classificação de nível de difi- PRINT USR (endereço escolhido) 
mero, melhorar mais a revista, tentan- culdade dos programas, será feita Mas faça a verificação antes de 
do proporcionar a você maiores infor- aqui, por nossa redação. rodar o programa ou fazer alguma alte¬ 

rnações. Esperamos que as inovações 2) Memória ocupada: O número ração, caso contrário, os valores não 
introduzidas na revista, estejam agra- de bytes que o programa e as variáveis serão os mesmos, 
dando. do sistema ocupam na memória do IMPORTANTE: Para programas 

A partir deste número, todos os pro- computador, corresponderá ao valor que tenham alguma rotina em lingua- 
gramas serão acompanhados por um fornecido em memória ocupada. Este gem de máquina, não será fornecido o 
quadro que fornecerá algumas infor- valor é obtido através da instrução: valor da Soma Sintática, 
mações: PRINT PEEK 16404 + 256 * PEEK 4) Computador Este último item 

1) Nível: Os programas serão 16405 — 16384 fornece os computadores em que o 

classificados por níveis. Para programas em que a instru- programa pode ser digitado. Logica- 

1 computador para programas até ção DIM varia, o valor fornecido será mente, todos os compatíveis não serão 

2 K. a memória ocupada somentè pelo pro- incluídos no quadro. 

2 computadores: para programas com grama que é obtido através da instru- Esperamos que este quadro lhe 

mais de 2 K em BASIC. ção: ajude a conhecer o programa antes de 

3 computadores: para programas em PRINT PEEK 16396 + 256 * PEEK digitá-lo assim como a verificar se vo- 

BASIC e em linguagem de máquina. 16397 — 16509 cê digitou-o corretamente. 


Explicação 

dos 

"QUADROS" 


351 ! 


li iii 
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Para criar sua fita com a função 3. Tecle POKE 16510,0 e NEW UNE. 
Soma Sintática, você deve executar Seu programa aparecerá como a lista- 
os seguintes passos: gem 3. 


1. Tecle o progama da istagem 1 
para carregar os códigos hexadeci¬ 
mais. 


IO RF.M OOCOOO0OOOOOOOOOCOOCOOÍ3 

c o o o e o o o o o o o e> o o 0 0 o o o 0 0 o 0 g 0 o o o 0 o 

00030(30 

20 LET XS""" 

30 LET Xrl65U 

dO IF Xt-"" THEN INPUT X* 

50 IF X$íl)="S" THEN STOP 
60 PRINT X* (1 TO 2).;" 

70 POK.F X, CietCODt X$ +CODE X« C 
2)-476) 

OO LET X=X + 1 
90 LET X$=X*í3 TO ) 

. 100 GOTO 4.0 


&WREM LM 77S7RND G05UP ?£RND 
CLEhP. 5 LM F3RNDE (RND GOSUB 7 =RN 
O - LN 0RMD Cl.ERR FflST CL.ERR 5 RND 
LN F?hT TfiN F O ST g GOSUB ? LPfiJN 
T COS 7,“ CL.ETRR -**7 ✓ PhUSE 5£3 GO 
SUB 7» RNL>; CLERR SlftRND CLERR 7* 
CL.ERR 7 * CLERR ''£ CLEhR ?S ClERR 
5 RND5&*RND* P GOSUB £8 GOSUB 7. R 
NDTflN 

20 LET 

30 LET X=16514 

4-0 IF X $=-•• THEN TNPUT X$ 

50 IF X*<lí-*S" THEN STOP 
60 PRim X*(l TO 2) ; “ 

70 POKE X,(lõtCODE XS+CODE X*í 
2) -4-76) 

ea LET x=x+i 

90 LET X*=X$(3 TO ) 

100 GOTO 4G 


2. Execute o programa dando entrada 
no código hexadecimal da listagem 2. 



Em caso de erro, recomece a se¬ 
gunda etapa. 


Apague as linhas 20 a 100 e tecle: 
--- 'N 

legSRUE -SOMR- 

20 PRINT “50MR 5INTRTICR*";U3R 
16S14- 

30 PRINT “CONFERE7 S/N** 

4-0 IF INKEYJa-S" THEN GOTO 60 
50 GOTO 4.0 

60 PRINT “SOMR SINTRTICR NO EN 
DERECO **; 

70 INPUT RTP 

60 POKE 16389,INT (RTP/2S6J 
90 POKE 15388,RTP-INT (RTP/25t ; - 
í *256 

100 PRINT USR 16S67 

110 IF INKEY$s“" THEN GOTO 110 

120 NEW 

\_ ) 


_ 
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4. Salve a versão final da Soma Sin¬ 
tática teclando RUN. Assim ela estará 
pronta para ser lida corretamente, e 
deverá mostrar a seguinte mensagem: 

SOMO SINTf*TICft*2SS2S 

_ 

Para usar esta mensagem, tecle o 
endereço para o qual você quer baixar 
a RAMTOP (por exemplo, 30000 se 
você tem 16 K). A Soma Sintática 
será então obtida através da seguinte 
instrução: 


PRINT USR 

(endereço que você escolheu) 


Portanto antes de carregar o seu 
programa carregue antes o programa 
Soma Sintática. Após informar o ende¬ 
reço limite da memória utilizada, tecle 
qualquer tecla para limpar a área do 
BASIC. 

_/ 
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CARTAS DOS 
LEITORES 



Seção de Jogos 


Há pouco mais de um mês atrás, 
assinei a revista Microhobby e fiquei 
satisfeito com a sua qualidade. 

Entretanto, gostaria de dar uma 
sugestão: como a maior parte dos lei¬ 
tores, inclusive eu, gosta de jogos e, 
também, tem memórias com mais de 
16 K, eu acho que vocês poderiam pu¬ 
blicar uma seção de JOGOS. 

Para finalizar, gostaria de ver res¬ 
pondidas duas coisas: 

1) É possível acrescentar funções 
READeRESTOREno TK? 


2) Como digitar um programa em 
linguagem de máquina? 

Luis Henrique Ishida 
São Paulo - SP 

Caro Luis, 

Você deve ter notado que em to¬ 
das as edições de Microhobby tem si¬ 
do publicados programas de jogos. En¬ 
tretanto, não é só de jogos que vive 
um possuidor de computador. Os jo¬ 
gos são programas e nossa revista 
dedica-se principalmente a programas. 


luieaueiiidi lunyirca 

no TK? -— 

CAKTADÇ 

»*r-ií£5Ê -'ÜSSS 


Não vemos necessidade de separá-los 
numa seção especial. 

As instruções READ, DATA e 
RESTO RE podem ser substituídas, sim 
no TK. Dê uma olhada no Desgri/ando 
da número 7, onde mostramos um 
caso particular de substituição destas 
instruções num programa feito para 
outro computador, a pedido de um de 
nossos assinantes. 


Z£*«*«* ° son» * 

vostrar-lhe todos çã0 , quer ama e o nível de 


/\ o Editor 
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Quanto a introdução de um pro¬ 
grama em linguagem de Máquina, dê 
uma olhada no número 8 da nossa 
revista. 


OTKeo Direito 


Adquiri um computador CP200 e 
gostaria de saber como utilizá-lo na 
minha área de trabalho, que é o Direi¬ 
to. 

Outra coisa: eu, por enquanto, 
não conheço nada de BASIC e gosta¬ 
ria de obter as primeiras lições deste 
curso. 

Além disso, gostaria que vocês 
me fornecessem todos os dados dis¬ 
poníveis para que eu possa entender 
melhor meu computador. 

Vania Suely Porto 
Bauru — SP 

Prezada Vania, 

Sem dúvida, o TK bem como com¬ 
putadores com ele compatíveis (entre 
e/es o CP200) podem ser úteis em 
qualquer área. 

Podemos citar o programa "0 TK 
no Direito Trabalhista e Civil", do Dr. 


João Carlos Normanha Sal/es. Outro 
programa bastante útil para todas as 
áreas é o "Arquivo", que saiu no mes¬ 
mo exemplar. 

Quanto ao BASIC, sentimos em 
informar que nem todos os exemplares 
estão disponíveis. Todavia, o livro BA¬ 
SIC TK, de autoria de P/avio Rossini 
e Pieduigi Piazzi, contém todas as li¬ 
ções do nosso curso. 


CP-300 eTK 85 


No colégio em que estudo foi ins¬ 
talada uma sala de computadores e, 
todos os dias eu e meus colegas reu¬ 
níamo-nos para tentar fazer alguns pro¬ 
gramas nos CP-300. 

Um deles, certo dia levou uma re¬ 
vista que continha programas espe¬ 
ciais para a linha dos TKs, publicada 
por vocês. 

Peguei um destes programas e co¬ 
piei-o no nosso computador. Nunca fiz 
nenhum curso de programação, e 
aquelas eram minhas primeiras expe¬ 
riências com programação. Embora te¬ 
nha digitado corretamente, o CP-300 
acusou erro numa das linhas (talvez 
por não aceitar a função FAST). A 


decepção foi enorme. Parecia que 
aquele computador não aceitava ne¬ 
nhum programa digitado por qualquer 
um de nós, pois durante mais de uma 
semana tentamos fazer algo interes¬ 
sante, sem obter resultado. 

Conto este caso para poder dizer 
meu pensamento com maior facilida¬ 
de: quando se compra um computador 
e se é quase leigo no assunto, como 
eu, é necessário uma boa orientação 
para lidar com ele. 

Cláudio Cabaleiro da Costa 
São Paulo — SP 

Caro Cláudio, 

0 seu problema é bastante co¬ 
mum, já que apenas alguns computa¬ 
dores são compatíveis com o TK. 0 
CP 300 é compatível com o TRS-80, 
uma outra Unha de computadores, cujo 
BASIC é essencialmente diferente do 
BASIC TK. Entretanto, nossa revista 
possui uma seção, "Os Oitenta", que 
aborda equipamentos desta natureza. 
Além disso, colocamos, a partir deste 
número, a seção Vice-Versa, uma se¬ 
ção voltada a traduções de comandos 
do BASIC TK para o BASIC dos 80 
ou do Apple. O 


COMO COLABORAR 
COM MICROHOBBY 



A Revista MICROHOBBY foi criada 
para servir de intercâmbio entre os leito¬ 
res que participam do mágico mundo da 
computação. 

A característica realmente inovadora 
do computador pessoal, está em transfor¬ 
mar cada consumidor num criador. Apro¬ 
veite sua criatividade e envie suas colabo¬ 
rações recebendo remuneração a título de 
DIREITO AUTORAL. 

A maneira ideal de nos enviar o mate¬ 
rial a ser publicado obedece às seguintes 
normas: 


1. Nunca esqueça de colocar o nome 
completo, telefone, endereço e número 
de sua assinatura em todo material envia¬ 
da a nós, sejam listagens de impressora, fi¬ 
tas, envelope, carta ou qualquer outro 
material. 

2. Envie a listagem de programa datilo¬ 
grafada ou, melhor ainda, tirada na im¬ 
pressora do computador. 

3. Coloque sempre uma linha REM com 
o nome do autor e o título do programa. 

4. Envie uma fita com o programa grava¬ 
do algumas vezes (se possível em gravado¬ 
res diferentes). 

5. Na fita, gravar com microfone (em viva 
voz), algumas instruções úteis: 

nome completo e endereço do remetente. 

6. Quando o programa for adaptado e/ou 
traduzido de outra revista, citar a fonte 
(autor original, data de publicação, nome 
da revista e todos os detalhes que houver 
referente à publicação). 


7. Anexar ao material, uma carta autori¬ 
zando a publicação por parte da revista e 
assumindo a responsabilidade pela autoria 
do material e/ou adaptações. Nesta carta, 
para agilizar a remuneração, podem cons¬ 
tar os dados da conta corrente onde da¬ 
remos o depósito correspondente aos di¬ 
reitos autorais. 

8. 0 material não utilizado não será de¬ 
volvido, ficando a critério da redação^e 
decisão final sobre sua publicação. 

9. 0 material deve ser enviado para: 


MICROMEGA PUBLICAÇÕES E 
MATERIAL DIDÁTICO 
SEÇÃO PROGRAMAS DO LEITOR 
Cx. Postal 54096 
CEP 01296 
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A BASF está lançando no mer¬ 
cado, uma fita cassete — Hitec High 
Technology — Head Cleaner ou limpa¬ 
dora de cabeça —. Esta fita pode ser 
usada em qualquer aparelho, bastando 
para isso colocá-la no Deck, apertar a 
tecla PLAY e deixá-la por 1 minuto. 
Informações com o Serviço de Orien¬ 
tação ao Consumidor da BASF, no 
telefone: (011)258-3291. 


Um evento de Importância 
ne I nformátíca Médica 1 


De 4 a 8 de abril próximo, o Rio de 
Janeiro, especificamente no Hotel Gló¬ 
ria, será centro de um importante even¬ 
to dentro da área de informática: o 
I Congresso Brasileiro de Microinfor- 
mática Médica, com exposição em pa¬ 
ralelo: a I Informed. 

O objetivo dos organizadores de 
tal evento é "tentar compensar os 20 
anos de atraso em que nos encontra¬ 
mos em relação aos países mais desen¬ 
volvidos com referência a este assun¬ 
to, reunindo os usuários de microcom¬ 
putadores do Brasil para uma maior 
compreensão do estágio em que vive¬ 
mos, para a troca de informações e 
uma avaliação da importância da Infor¬ 
mática Médica". 

O evento terá cursos contando 
com uma programação científica, abor¬ 
dando diversos painéis, conferências, 
colóquios proferidos por renomados 
especialistas. A I Informed, realizada 
em paralelo no Congresso contará com 
grande número de expositores nacio- 
8 MICROHOBBY 


nais, participantes e visitantes mos¬ 
trando o que está sendo feito no mer¬ 
cado de informática médica. 


f>èrtférlcós para o T& 8& 83 © 85 


Ter um bom computador como o 
TK 83 é interessante, mas pode não 
ser suficiente em muitas ocasiões. É 
útil termos algo mais além do compu¬ 
tador, como, por exemplo, uma inter¬ 
face para impressoras paralelas. Este é 
um dos periféricos lançados este mês 
pela Microdigital para os computado¬ 
res da linha TK 83. 

Esta interface permite ao usuário 
o TK 83, 82C e 85 terem seus compu¬ 
tadores ligados a uma impressora para¬ 
lela do tipo Centronic, semelhante¬ 
mente aos computadores da família 
TRS-80 ou Apple. 

Para aqueles que entendem um 
pouco mais de eletrônica, a Microdi¬ 
gital está lançando dois módulos inte¬ 
ressantes; o programador de EPROM 
e um Protoborder. O primeiro permite 
que o usuário programe sua própria 
EPROM, a partir do TK e o segundo 
permite que se ligue circuitos eletrô¬ 
nicos ao computador. 

Para se ligar mais de um perifé¬ 
rico é interessante a placa-mãe (mo* 
ther border), que permite ao usuário 
ligar mais de uma expansão ao TK 83, 
85, ou 82C. 

Um periférico que não pode faltar 
ao aficcionado em jogos é o joystick, 
que agora conta com um novo design, 
mais fácil de ser manipulado. 

Para o TK 2000, em breve, estarão 
no mercado alguns periféricos úteis a 
seus possuidores: 

1) cabo para ligação de impressora 

2) interface para disquete 

3) joystick 


Ó JVtl c^o 


Um outro evento de grande im¬ 
portância, a realizar-se de 21 a 24 de 
março em São Paulo, no Palácio das 
Convenções do Anhembi será certa¬ 
mente o Micro-Festival/84. Organiza¬ 
do pela Guazzelli Associados, ele con¬ 
tará com a presença de diversos expo¬ 
sitores entre estes: a Microdigital Ele¬ 
trônica; Verbatim Comercial; a SISCO 
Sistemas e Computadores; á Multi 
Soft Informática Ltda.; a Polymax Sis¬ 
temas e Periféricos; a Itaútec; a Micro- 
craft Microcomputadores; a UNITRON 
Eletrônica; a Tecnopoli Tecnologia em 
Poliuretano Indústria e Comércio; a 
Kristian Eletrônica; a Eletrotela Com¬ 
putadores e Sistemas; a Compucenter 
Ltda.; a Brascom Computadores; a 
Scopus Tecnologia; a Victor do Bra¬ 
sil; a Softec Engenharia, Sistemas e 
Comércio; a Menphis Indústria e Co¬ 
mércio; a Spectrum Equipamentos Ele¬ 
trônicos; a Exatron Informática; a Sys- 
data; a Dismac Industrial; a Angra Tec¬ 
nologia; a Approach Serviços; a Edisa 
Eletrônica; a Servimec; a Parks Equi¬ 
pamentos Eletrônicos; a Execplan Sis¬ 
temas de Apoio a Decisão; a Racimec - 
Racionalização e Mecanização; a VM 
Consultoria; a Intertec Serviços; a Di- 
giters Indústria e Comércio e Serviços 
de Eletrônica; a Proceda Serviços Ad¬ 
ministrativos; a Ritas do Brasil; a Dan- 
vic; a Imarés Comércio de Computa¬ 
dores; a Labo Eletrônica; a Computi- 
que Comércio e Exportação de Com¬ 
putadores; a Link Comercial; a D.M. 
Eletrônica, a Rimington; a Compo do 
Brasil Indústria e Comércio; a SI D Sis¬ 
temas de Informação Distribuída; a 
Scritta Eletrônica; a BIT Comércio Ser¬ 
viços e Programação Eletrônica; a EM- 
BRATEL; a Elebra Informática; a BMK 
Processamento de Dados; a CCE In¬ 
dústria e Comércio de Componentes 
Eletrônicos, a Milmar Indústria e Co¬ 
mércio e a B.K. Controles Eletrônicos. 

Paralelamente à exposição, o Mi¬ 
cro-Festival apresentará diversos semi¬ 
nários e cursos, promovidos pela Com¬ 
pucenter. Diversos conferencistas já 
confirmaram sua presença, entre es¬ 
tes, estão: Cláudio Mamana da Socie¬ 
dade Brasileira de Computação Enri¬ 
que Costabile, presidente da SUCESU- 
SP, Sérgio Araújo, presidente da AN¬ 
DEI, Ricardo Saur, da ABICOMP, Hé¬ 
lio Azevedo, da SUCESU-Nacional, 
Miguel Teixeira de Carvalho, da SEI, 
Ivan da Costa Marque, da Empresa 
Brasileira de Computação, Frederick 
Schuchardt, presidente da Schuchardt 
Software Systems e David Anderson 
editor da Revista Micro Bits. O 











Pentaspeed 
Prezados Senhores: 

Ao receber o número 4 da revista 
Microhobby, fui direto ao programa do 
mês, o Pentaspeed. Digitei o progra¬ 
ma e gravei. Quando fui testá-lo, usei 
o programa Simulador de vôo (um pro¬ 
grama longo). Na fase de gravação, 
deu tudo certo, sendo muito rápido. 
Entretanto, quando fui carregá-lo, não 
consegui. Tentei várias vezes com es¬ 
ses e outros programas e continuou 
não dando certo. 

Gostaria de saber o que pode estar 
havendo. Marco Antônio Penna Gon¬ 
çalves, Rio de Janeiro — RJ. 

O programa Pentaspeed foi por 
nós testado, sem nenhum problema. 
0 que pode estar acontecendo é que, 
por ser o Pentaspeed um programa 
que vai para a RAMTOP ele não pode 
coexistir com programas em que, pelo 
menos uma parte, vá para a RAMTOP. 
Para resolver este problema, serão ne¬ 
cessários alguns artifícios. Nossa equi¬ 
pe está trabalhando no momento nis¬ 
so, numa das próximas edições, mos¬ 
traremos o resultado. 

Aguarde. 

Prezados Senhores: 

Possuo um TK-85 com 16 K de 
memória e gostaria de saber qual o 


máximo endereço para que ela possa 
dar um POKE? Idem para 48 K e 64 K? 

Estou realmente mais interessado 
em Linguagem de Máquina que no BA¬ 
SIC do TK. É possível fazer esta in¬ 
versão (BASIC para Linguagem de 
Máquina?) sem grandes "dores de ca¬ 
beça"? Gostaria de fazer isso o mais 
rapidamente possível. Existem cursos 
de Linguagem de Máquina por corres¬ 
pondência? Quais? Odilon dos San¬ 
tos Braga, Acesita — Minas Gerais. 

Caro Odilon, 

Você pode fazer um POKE em 
todos os endereços da RAM do micro. 
Os endereços máximos são: 

Para 16 K . 32767 

Para 48 K . 65535 (no TK 85) 

Para 64 K . 65535 

Quanto a Linguagem de Máquina 
ela não requer "inversões”. Seu com¬ 
putador pode funcionar perfeitamente 
tanto em uma quanto em outra. Ela é 
acessada pelo BASIC através das fun¬ 
ções PEEK, POKE e USR. 

Mais detalhes são mostrados à ca¬ 
da edição de Microhobby. Quanto aos 
cursos não conhecemos nenhum que 
ministre aulas por correspondência so¬ 
bre Linguagem de Máquina específico 
para o TK ou compatíveis. 

Entretanto, você poderá aprender 
muito a respeito, nas páginas da Mi¬ 
crohobby e no livro de F/avio Rossini, 


Curso Linguagem de Máquina para o 
TK, editado aqui, pela Micromega. 

High speed e Penta speed 
Prezados Senhores: 

Sou assinante da Microhobby e 
estou satisfeita com minha assinatura, 
pois além de ser uma ótima revista, 
estou recebendo-a assiduamente. 

0 motivo desta carta é pedir um 
esclarecimento sobre o Pentaspeed, 
pois não é com todos os programas 
que ele funciona, como, por exemplo, 
"Mazogs" e outros, pois ele simples¬ 
mente os rejeita na hora de rodar o pro¬ 
grama. 

Eu gostaria de saber: 

1) Tem solução para isso? 

2) Se publicaram o Pentaspeed, 
por que não o Hl-speed? Beatriz H. A. 
De Carvalho — Campinas — SP. 


Como dissemos na resposta à car¬ 
ta do Marco Antonio, existem alguns 
macetes que podem permitir que os 
programas que têm uma de suas par¬ 
tes protegidas pela RAMTOP possam 
também rodar com o Pentaspeed. 
Quanto ao Hl-speed,não está nos nos¬ 
sos projetos atuais publicar um progra¬ 
ma desta natureza. 

Agradecemos as suas sugestões 
elogios. 



COLONIA DE FERIAS SEM COMPUTADORES 

= Colmeia - 


Jt*' 


^ ^ 




Fazenda 80 alqueires, 
horta, pomar, piscina, 
quadra poliesportiva. 


Local: Itú 
Idade: 4 a 14 anos 

Telefones: 61-2223 e 240-6281 
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DISSECANDO 



FRINT 

Carlos E. R. Salvato 


Está se iniciando neste número 
uma nova seção: Dissecando. 

Dissecar significa, de acordo com 
Mestre Aurélio, "analisar minuciosa¬ 
mente". E é isso que iremos fazer, 
abordando a cada mês uma instrução, 
função ou comando diferentes. 

Dividiremos esta seção em três 
partes: 

a) Iniciantes: destinada aos que 
estão principiando o uso do compu¬ 
tador, dando desde como digitá-lo até 
sua função num programa. 

b) Minúcias: nesta parte, descre¬ 
veremos detalhes interessantes, dicas 
do uso de cada instrução, comando 
ou função. 

c) Linguagem de máquina: des¬ 
tinada aos que já conhecem bem o 
BASIC TK e estão iniciando o apren¬ 
dizado em linguagem de máquina. 

Assim teremos, em todos os ní¬ 
veis, informações úteis não só para o 
iniciante como também para todos 
aqueles que desejam saber um pouco 
mais sobre o BASIC e a Linguagem 
de Máquina doTK. 


Nota: usamos para testar um compu¬ 
tador TK 83. As funções obtidas com 
PEEK e POKE e as rotinas em lingua¬ 
gem de máquina podem funcionar na 
maioria dos computadores compatíveis 
com ele (TK-82,TK-85, CP200 e NE- 


Z8000). Talvez faça exceção o Ringo, 
o AS 1000 e o Apply 300. Um rápido 
exame dos respectivos manuais poderá 
dar-lhe alguma orientação de como 
proceder. 


Sem dúvida o PRINT é uma das 
funções mais usadas nos programas 
em BASIC. Ele pode ser usado em vá¬ 
rios casos e nós, neste artigo, tenta¬ 
remos mostrar como ele é usado em 
todos estes casos. 


mmmm 


Dentre outras funções, o PRINT 
pode ser usado como um comando 
direto, ou seja, não fará parte de um 
pfograma. 

Execute a seguinte linha: 


PRINT 3*1 


Logo após você ter pressionado 
NEW LINE, o resultado da conta apa¬ 
recerá no canto superior esquerdo do 
seu vídeo. Neste caso, o PRINT fez o 
computador agir como calculadora. 

Se você executar a linha que se¬ 
gue, qual será o resultado? 


PRINT "O-H" 


O micro não deu o resultado da 
conta porque foi ordenado a ele que 
imprimisse no vídeo o que estivesse 
entre aspas, no caso, 3 + 1. 

Para fazer o TK imprimir a conta 
e o resultado, você deve fazer o se¬ 
guinte: 


P»INT **3+V;3 + l 


O micro imprimiu o que estava en¬ 
tre aspas e por causa do ponto e vír¬ 
gula, ele imprimiu logo ao lado da con¬ 
ta, o resultado de 3 + 1. 

Existem várias formas de se posi¬ 
cionar uma palavra ou número no ví¬ 
deo, ou seja, seus programas não pre¬ 
cisam ir escrevendo as mensagens ou 
contas começando na parte superior 
do vídeo. Eles podem começar de qual¬ 
quer ponto que você desejar. 


OVÍDEO 


O vídeo do TK é dividido em 32 
colunas e 24 linhas, sendo que as li¬ 
nhas 22 e 23 são reservadas para edi¬ 
ção e normalmente não podem ser 
usadas no programa (Mais adiante ve¬ 
remos como usá-las). 
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Figura 1 
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PRINT AT Y,X;"MICROHOBBY" 



PRINT; 


Ele serve para escrever uma coisa 
logo após a outra como já foi citado 
no exemplo anterior. 


PRINT, 


O PRINT, divide o vídeo em duas 
partes. Uma que começa na posição 
0 e vai até o 15, e outra que começa 
na posição 16 e vai até a 31. 

Execute a seguinte linha: 


0 TK escreverá o primeiro 2 na po¬ 
sição (0,0) e o segundo 2 na posição 
(0,16). 

Se você, em vez de digitar somen¬ 
te uma vírgula digitasse duas, iriam 
aparecer um 2 em baixo do outro, por¬ 
que o micro imprimiu o primeiro 2 e 
depois recebeu a ordem de imprimir 
duas metades a frente do outro nú¬ 
mero 2. 


Experimente executar esta linha: 


PRINT TRB G;"MICROHOBSY" 


O TK colocará na posição (0,8), 
a palavra MICROHOBBY. Se você exe¬ 
cutar um PRINT TAB X, onde X é um 
número maior que 31 e menor 256, 
como por exemplo: 


PRINT TRB 235;"MICROHOBBY” 


O computador não acusará erro, 
porque ele divide os números de 0 até 
255 em blocos de 32 como está repre¬ 
sentado na figura 1. 

Você deve estar fazendo a seguin¬ 
te pergunta: "e se em um programa 
estiver escrito o seguinte: ". 

PRINT TRB 181;"MICROHOBBY” 

"Em que posição será escrita a palavra 
MICROHOBBY?" Para isto, eu desen¬ 
volvi a fórmula que segue: 

X = N - 32 * L 

onde: N = o número após o TAB 

L = o número da linha onde 
está N. (ver Figurai ). 


Tabela de formatação do vídeo 
Experimente 


onde Y é o número da linha e X é o 
número da coluna que você quer posi¬ 
cionar a palavra MICROHOBBY. Serão 
dadas dicas mais adiante. 

"O que devo fazer para aparecer, 
no início do vídeo, uma palavra entre 
aspas?". 

Se você escrever: 


PRINT ** "MICROHOBBY" ** 


o TK irá acusar erro. Você deve escre¬ 
ver: 

SH1FT+Q 

r J= i P-i 

PRINT .MICROHOBBY. 


PRINT no programa 


Agora nós iremos apresentar al¬ 
guns programas bem simples para ilus¬ 
trar o que foi dito anteriormente. 

Primeiro iniciaremos com um pro¬ 
grama que todos, logo que compram 
um microcomputador, querem fazer. 


10 PRINT *'©URL E* 

20 INPUT Rí 
30 CLS 

4-0 PRINT Rí, ” 

50 GOTO 4.0 


O SEU NOME ? 



PRINT TAB 


O PRINT TAB serve como tabu- 
lador. Ao invés dele começar a impri¬ 
mir na posição (0,0), o micro começa¬ 
rá a imprimir na posição (0,X) onde 
X é igual a um número determinado 
por você, de 0 a 31. 


Usando esta fórmula, você desco¬ 
brirá X (que é a posição ocupada pela 
palavra). 


PRINT AT 


Este tipo de PRINT é usado da se¬ 
guinte forma: 


Para você sentir bem a diferença 
entre o PRINT; e o PRINT, , digite os 
dois programas que seguem. 


10 

FOR R=1 TO 200 

20 

PRINT r; ” •*; 

30 

NEXT n 

4.0 

STOP 
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0 programa que segue serve para 
ilustrar bem o PRINT AT ; 


10 PRINT “OUflL R PflLRURfl OUE U 
OCE OUER E3CPEUER 7" 

£0 INPUT R9 

30 PRINT "EM OUE LINHR UOCE OU 
ER IMPRIMIR R PRLRURR ?'* 

40 INPUT R 

50 PRINT "E EH OUE COLUNR *»” 

60 INPUT B 
70 CLS 

00 PRINT «T R,B;R* 

90 STOP 


Nesta parte do artigo nós iremos 
dar algumas dicas sobre o uso do 
PRINT. 

A primeira delas será como usar 
as linhas de edição. Para fazer isto, 
basta acrescentar no início de seu pro¬ 
grama uma linha que é o PÒKE 
16418,0. Neste endereço está armaze¬ 
nado o valor das linhas de edição que 
normalmente é 2 e quando o TK exe¬ 
cuta a linha 16418,0, você está zerando 
as linhas de edição podendo usar todo 
o vídeo. 

Digite o seguinte programa: 


10 POKE 164.18,0 
20 FOR 0=0 TO 23 
30 PRINT TOB 5; R 
40 NEXT O 
60 STOP 


Logo após ter digitado RUN, o ví¬ 
deo ficará parado e se você digitar 
qualquer número ou letra, tudo sumirá. 

Para resolver isto, antes de fazer 
um INPUT digite uma linha contendo 
POKE 16418,2. 

Agora vamos ver como usar as va¬ 
riáveis do sistema nos nossos progra¬ 
mas. 

1?) DFILE — Arquivo de vídeo 

Esta variável está contida em dois 
endereços que são: 16396 e 16397. 

Ela nos indica o endereço onde 
começa o arquivo de vídeo, porque 
ele depende do tamanho do programa. 

Experimente digitar o seguinte: 


10 LET DFILEaPEEK 16396+256+PE 
EK 10397 

20 PRINT "O DFILE COMECR NO EM 
DERECO DFILE 

30 FOR R = 1 TO 40 
40 NEXT R 
50 CLS 

60 FOR 0=DF ILE 4-5S TO DFILE+704 
STEP 32 
70 POKE &j123 
BO NEXT B 

90 FOR C=OFILE+38 TO DFILE+750 
STEP 34 

100 POKE C,128 
110 NEXT C 
120 STOP 
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A linha 10 define o valor do DFILE. 
Da linha 60 até a 110 são dois LOOPS 
que farão imprimir um enorme X no 
vídeo. Isto é feito "pokeando" o carac¬ 
tere 128 em alguns endereços do 
DFILE. 

2?) POSPR — endereço da posi¬ 
ção do PRINT 

Esta variável está armazenada nos 
endereços 16398 e 16399. 

Ele testa qualquer ponto e é muito 
usado em jogos como por exemplo o 
que segue: 


10 

FRST 



20 

FOR R = 1 TO 100 



30 

LET Y = INT (RNDt22) 



40 

LET XaINT (RND*32) 



50 

PRINT RT Y,X;CHR* O 



60 

NEXT R 



70 

Sl-OU 



80 

LET 8=10 



90 

LET C=© 



100 

PRINT RT B , C; RT 

LET B=B+<INKEY$="6"> 

o,c; *• 


110 

-(INKEY 

% =**7'' 

) 



120 

LET C*C+1 



130 

PRINT RT B,C.; 



140 

LET POSPR =PEEK 16398 4*256 tPE 

EK 16399 



150 

IF PEEK POSPR*8 THEN GOTO 

2 

00 




160 

IF C*31 TMEN GOTO 160 


170 

GOTO 100 



160 

PRINT RT 10,0;"UOCE 

CONSEGU 

XU NRO BATER EM NRDfl" 



190 

GOTO 210 



£00 

PRINT RT 10,0;"UOCE 

BRTEU 

N 

O OBSTRCULO" 



210 

STOP 






Neste jogo você tem que desviar 
dos obstáculos, usando as teclas 6 e 7. 

Mas o que nos interessa mesmo 
são as linhas 130,140 e 150. 

A linha 130 posiciona um cursor 
que não é visível na posição (C,B); 
a linha 140 atribui um valor à variável 
POSPR e a linha 150 testa que carac¬ 
tere existe nesta posição e compara 
com o caractere 8 que simboliza o obs¬ 
táculo. Se o que houver na posição 
(C,B) for o caractere 8, é feito um salto 
para a linha que imprime a mensagem 
"VOCE BATEU", caso contrário, o 
programa continua normalmente. 

3?) COLPR — Número de coluna 
para a posição PRINT 

Esta variável está armazenada so¬ 
mente em um endereço, o 16441. 
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Ela é muito útil quando você qui- 
zer que aconteça algum efeito espe¬ 
cial ou uma simples limpeza de tela, 
quando fôr colocado um caractere em 
uma certa coluna do PRINT. 

Ela pode variar de 32 até 1, ou seja 
a posição 0 do TAB equivale ao 32 da 
variável e assim por diante. 

Rode o seguinte programa: 


IO rOR TO 352 

20 PRINT 
4 - <3 NEXT R 
50 ST OP 


0 TK encheu até a metade do 
vídeo com pontos. Agora inclua a se¬ 
guinte linha. <Fig. 21) 


30 XF PEEK 164 . 4.1 .1 THEN PRINT 


Quando o TK chega na linha 30 
ele testa se a variável COLPR é igual 
a 1. Se for ele pula uma linha se não, 
continua o programa. 

4?) LINPR — Número da linha pa¬ 
ra a posição PRINT 

Esta variável também está arma¬ 
zenada em apenas um endereço, o 164 
42. A função dela é quase igual a da 
COLPR, mas agora ela servirá para 
identificar a linha e não a coluna do 
PRINT. Ela é muito usada para evitar 
o erro 5. 


10 PRINT TRB 8; "MICROHOBBV** 
20 IF PEEK 16442=2 THEN CUS 
30 GOTO IO 


Aqui também as posições são in¬ 
vertidas do PRINT AT. Quando a linha 
no PRINT AT é igual a 0 nesta variável 
a linha é igual a 23. 




Esta parte do artigo será dedicada 
àqueles que já entendem bem o BA- 
SIC-TK e já tiveram alguma introdução 
a Linguagem de Máquina. 

Para carregar o programa Lingua¬ 
gem de Máquina é necessário usar um 
programa em BASIC por nós denomi¬ 
nado de Monitor Assembly. 0 Monitor 
é um programa simples que "pokeia" 
na linha REM os caracteres equivalen¬ 
tes aos mnemónicos da Linguagem de 
Máquina. A primeira linha do Monitor 
Assembly sempre deverá ser a linha 
REM com N zeros, sendo que N varia 
de programa para programa. N sempre 
será especificado no início do progra¬ 
ma em Linguagem de Máquina. Os va¬ 
lores dos endereços inicial e final tam¬ 
bém são especificados no início do 
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programa. 

Após você ter entrado com os en¬ 
dereços digite os números hexadeci¬ 
mais logo abaixo da palavra Código. 
Os códigos deverão ser digitados um 
a um, ou seja após digitar um código 
digite NEW UNE. 

Quando aparecer no canto inferior 
esquerdo o código de reportagem 
9/160 apague todas as linhas após a 
linha 20 (a linha 20 também deve ser 
apagada), não use NEW. 

Para rodar um programa em Lin¬ 
guagem de Máquina digite: 


RRND USR 16514- 


10 

REM N 2FR05 



20 

PRINT "ENDEREÇO 

INICIAL 7“ 

30 

INPliT P 



40 

PRINT R 



50 

PRINT "ENDEREÇO 

FINRL 

7” 

60 

iNPur 6 



70 

PRINT B 



60 

FOR C =R TO B 



90 

SCROLL 



1O0 

PRINT C, 



110 

INPUT R $ 



120 

PRINT Rí 



130 

LET D=lò*CODE Rí+CODE 

R% (21 

-4-76 




140 

POKE C,D 



150 

NEXT C 



160 

STOP 




causar efeitos estranhíssimos. 

Agora iremos apresentar dois pro¬ 
gramas que terão como resultado final 
afigura: 





a) Versão BASIC 


10 FOR R = 1 TO "704. 

20 PRINT 
30 NEXT R 
4.0 LET B = 10 

50 FOR C=21 TO 0 STEP -1 
50 FOR D=B TO 31 
70 PRINT RT C, D; “fl’* 

80 NEXT D 
90 LET 6=B + 1 
100 NEXT C 
110 STOP 


Agora nós iremos fazer algumas 
comparações entre os programas em 
BASIC e os programas em Linguagem 
de Máquina. 

Os dois programas seguintes 
preencherão o vídeo inteiro com a pa¬ 
lavra MICROHOBBY em vídeo inverso. 


a) Versão BASIC 


10 PRINT : 

20 GOTO 10 


b) Versão ASSEMBLY 


N=40 






ENDEREÇO 

INICIRL= 

16514 


ENDEREÇO 

FINRL 

= 1654-4 



ENDEREÇO 

CODIGO 

MNEMÓNICOS 

16514- 

IQ 

0B 


JR 

+0B 

16516 

B2 



M 


16517 

RE 



I 


16518 

RS 



C 


16519 

B7 



R 


16520 

B4 



O 


16521 

RD 



H 


16522 

B4 



O 


16523 

R7 



B 


16524. 

R7 



B 


16525 

BE 



Y 


16526 

80 





16527 

CS 



PUSH 

BC 

16528 

E5 



PUSH 

HL 

16529 

D5 



PUSH 

DE 

16530 

11 

84 

40 

LD DE 

40B4 

16533 

01 

0B 

00 

LD BC , 

, 000B 

16536 

CD 

6B 

0B 

CRLL 

0B6B 

16539 

Dl 



POP 

DE 

1654-0 

El 



POP 

HL 

16541 

Cl 



POP 

BC 

1654.2 

CD 

QF 

40 

CRLL 

408F 


A versão BASIC é muito mais fá¬ 
cil de ser digitado porém a velocidade 
de processamento é inferior a da ver¬ 
são Assembly. A versão em Assembly 
por sua vez tem sua digitação meio crí¬ 
tica, qualquer número errado poderá 


b) Versão ASSEMBLY 


N*33 






ENDEREÇO 

INICIAL* 

16514 


ENDEREÇO 

FINRL=16546 


ENDEREÇO 

CODIGOS 

MNEMÓNICOS 

16514 

2R 

0C 

40 

LD 

HL, 14000 

16517 

23 



INC 

HL 

16510 

06 

16 


LD 

B , 16 

16520 

0E 

1F 


LD 

C , 1F 

16522 

3E 

17 


LD 

fi , 17 

16524 

51 



LD 

D , C 

16525 

1E 

20 


LD 

E , 20 

16527 

77 



LD 

(HU , R 

16528 

23 



INC 

HL 

16529 

1D 



DEC 

E 

16530 

15 



DEC 

D 

16531 

C2 

BF 

40 

JP 

NZ,406F 

16534 

3E 

97 


LD 

R , 97 

16536 

77 



LD 

(HL) ,R 

16537 

23 



INC 

HL 

16530 

1D 



DEC 

E 

16539 

C2 

98 

40 

JP 

NZ,4090 

16542 

23 



INC 

HL 

16543 

16544 

0D 

10 

E6 


DEC 

DJNZ 

40BR 

16546 

C9 



RET 



Outra vez a versão Assembly se 
destaca por ter uma execução mais 
rápida. 0 problema do programa BA¬ 
SIC é que ele encheu o vídeo inteiro 
com asteris cos normais e depois em 
algumas posições ele coloca asteriscos 
em vídeo inverso. 

Agora digite a linha seguinte: 



Logo após ter digitado isto o que 
aconteceu? Você sabe explicar? Nos 
próximos números nós dissecaremos 
outros comandos. Até lá. O 






















































PROGRAMA DO LEITOR 


MENSAGEM MORSE 
ESCRITA E SONORA 


Código Morse 

Memória Ocupada = 3072 bytes 
Nível = 

Computadores = TK 85 e compatíveis 


Este programa pede na tela para 
você entrar com o texto e a partir daí, 
este é codificado em MORSE, isto é, 
traço e ponto obedecendo a codifi¬ 
cação internacional. (Fig. 1) 



Logo a seguir aparece no vídeo: 
“AUMENTE 0 VOLUME DA TV E 


NEW LINE". 

rr 

REM 

-■C2RNDSSCC < « RETURN 1 

9RNDPEEK 

COPY LM gRND/f 

: COPY 

CLERR C 

SCROLL TRN ?X4 

CLERR 

N 00 




2 

REM 

RODNEI NOURIS 


90 

DXM 

B 5(40,8) • 


97 

LET 

BS (1) " 


98 

LET 

BS (2) = 


99 

LET 

Bv i 3> =". 

•* 

100 

LET 

BS Í4.) =•'-’• 


101 

LET 

BS (3) =•’ .-" 


102 

LET 

BS (8) ='• . .-" 


103 

LET 

BS(7) 


104 

LET 

BS <8) — *" ■ ■ m « — 


105 

LET 

BS (S3 ="." 


106 

LET 

BS (10) -" 


107 

LET 

BS (11) ="-. . - " 


20o 

LET 

bs as) =**-;; 


109 

LET 

Bs ( 13) ="-. 


110 

LET 

BS(14)=". 


111 

LET 

BS(IS) 


112 

LET 

Bs(16)=”-.-•" 


113 

LET 

BS(17)." 


114 

LET 

BS(18)="-" 


115 

LET 

BS(19)" 


116 

LET 

BS (20) 


117 

LET 

BS (21) ="...." 


118 

LET 

BS (22) =" . . " 


119 

LET 

SS (23) =*• .-" 


120 

LET 

BS (24) . -” 


121 

LET 

BS i 25) =**• ■“ • ■ 


122 

LET 

BS (26) ="-** 


123 

LET 

BS (27) " 


124 

LET, 

BS (28) ="-■■ 


125 

LET 

BS (29) =" .-, " 


126 

LET 

BS(30) 


127 

LET 

BS (31) =*' . 


128 

LET 

BS (32) = " . . . " 


y 129 

LET 

BS (33) =•*-" 



Com isso, cada ponto é sonoriza¬ 
do com um sinal de longa duração. 
Com os cabos ligados deixando o gra¬ 
vador em RECORD, você grava os da¬ 
dos (sinais) e com um fone de ouvido 
ligado na saída do monitor a repro¬ 
dução é ainda melhor que a mostrada 
na TV. 

Para digitar o programa, proceda 
da seguinte forma: 

— Digite primeiro o monitor as- 
sembler listado na figura 2. 

/ 1 REM 00000G>0000000090000000S N \ 

0000000000 \ 
10 LET X = 16514- 
20 PRINT " 

30 PRINT X; ’* > •*; 

4-0 INPUT R$ 

50 IP R$ = "S" THEN ST OP 
60 POKE X . URL- R$ 

70 PRINT URL P.$; 

80 LET X — X + 1 
90 GOTO 20 

— A linha 1 REM contém 33 ze¬ 
ros. 

— Após digitado o programa, dê 
o comando RUN e NEW LINE. Entre 
agora com os códigos em decimal, 
listados na figura 3. 


Rodnei Novaes 

6 

16514 


40 

16515 


30 

16516 


64 

16517 


167 

16518 


187 

16519 


40 

16520 


12 

16521 


219 

16522 


2S4- 

16523 


205 

16524 


156 

16525 


64 

16526 


211 

16527 


255 

16523 


205 

16529 


158 

16530 


64 

16531 


24 

16532 


5 

16533 


14 

16534 


255 

16535 


13 

16536 


32 

16537 


253 

16533 


16 

16539 


231 

16540 


201 

16541 


123 

16542 


61 

16543 


32 

16544 


253 

16545 


201 

16546 

J 


— Tendo digitado todos os códi¬ 
gos, digite Se NEW UNE. 

— Delexe agora todas as linhas, 
menos a de número 1. 

— Digite agora a segunda parte, 
isto é, o programa propriamente dito. 
(Fig. 4). 


130 LET B5(34)-** 

131 LET Bí(35) 

132 LET 6$(3ô) =*’.-" 

133 LET B$ (37) 

134. LET BS (38) ="-.--* 

135 LET B$(39)«“- 

136 LET BSÍ40)="..-. 

195 CLS 
200 PRINT 

205 PRINT 

206 INPUT Rí 
£08 PRINT Rí 
210 LET D4="" 

24.0 FOR 1 = 1 TO LEN R$ 

24-1 IF RSU) a”." THEN GOTO 500 

24-2 IF RS (I) =‘‘ *’ THEN GOTO 350 

243 IF RS (I) ='*'?*• THEN GOTO 400 

245 LET Cí="" 

250 FOR U = 1 TO LEN B$(CODE RÇCI 
) -24) 

260 IF BfíCÜDE R$(I)-24,O)= " " 
THEN GOTO 250 

270 LET C$=C$+B$(COOE ft*(I)-24, 
U) 

260 NEXT J 
290 PRINT cs; *’ 

295 LET DS=DS+CS 

302 PRINT J RT 21,0;"RUMENTE O UO 

LUME DR TU E NEULINE" _ 

305 IF INKEVSs" ” THEN GOTO 305 
310 GOTO 790 
3S00LET flí(I) 

355 LET CS =RS (I) 

360 GOTO 290 
40O LET C$=B$(40) 

410 GOTO 290 
500 LET CS=BS(3> 

510 GOTO 290 
600 SRUE "MORSE" 


610 

790 

800 

310 

820 

1 

RUN 

FR5T 

FOR 1=1 TO 
IF DS(I)= ". 
IF DS (D ="- 

LEN D$ 
" THEN 
" THEN 

GOSUB 

GOSUB 

y 

900 

100 

830 

IF DS(I)="✓ 

" THEN 

GOSUB 

110 

835 

IF DS(I)=" 

“ THEN 

POKE 

1651 


840 RRND USR 16514 
042 FOR U = 1 TO 10 
843 NEXT J 
850 NEXT I 
860 GOTO 1200 
900 POKE 16515,40 
910 POKE 16517,64 
920 RETURN 
1000 POKE 16515,255 
1010 POKE 16517,64 
1020 RETURN 
1100 POKE 16517,0 
1110 FOR J = 1 TO 10 
1120 NEXT U 
1130 RETURN 
1200 5LOU 

1210 PRINT RT 21,0;" 

R R MEN5RGEH 7 (SxN) 1 
1220 INPUT SS 
1230 IF SS="5" THEN GOTO 790 
1240 IF SS="N" THEN GOTO 195 
1250 GOTO 1220 


— GRAVE o programa e dê o co¬ 
lmando RUN (new line). 


OUER REPETI 


O 
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Esta seção pretende interligar os 
software dos micros pessoais mais co¬ 
nhecidos no nosso país, na medida do 
possível. Por que? Porque muitas má¬ 
quinas são extremamente semelhan¬ 
tes. Outras tem uma concepção de 
projeto que visa usuários diferentes. 
Estas diferenças também podem exis¬ 
tir no tipo de linguagem utilizada (Ba¬ 
sic, Pascal, Fortran, etc.). Vamos co¬ 
mentá-las na Vice Versa, para que o 
usuário de uma determinada máquina 
possa beneficiar-se do material publi¬ 
cado para as outras. Afinal não há ra¬ 
zão para que um usuário do TK fique 
sem entender a listagem de um progra¬ 
ma criado para outro computador, 
principalmente se esta listagem estiver 
em Basic! 

A compatibilidade 

Quando pela primeira vez alguém 
vai a uma loja de micros sai de lá es¬ 
pantado com a quantidade enorme de 
marcas de máquinas em exposição. A 
impressão que se tem é que deve exis¬ 
tir ali uma centena de tipos de compu¬ 
tador, cada um com um modo parti¬ 
cular de programação. A coisa não é 
bem assim. Na realidade com peque¬ 
nas diferenças, existem praticamente 
só três ou quatro famílias de micros . . . 
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que embora de marcas diferentes, ro¬ 
dam praticamente os mesmos progra¬ 
mas. A este conjunto de computadores 
que podem rodar praticamente o mes¬ 
mo software e as vezes até intercam- 
biar periféricos dá-se o nome de com¬ 
patíveis. Agora antes de mais nada, dê 
uma olhada na tabela de compatibi/í 
dade. 


Tabela de compatibilidade 


TK 82, TK 82C, TK 83, CP 200, 
NEZ8000, 

TK 85, AS 1000, APPLY300 
RINGO 


APPLE, UNITR0N, ELPPA, APII, 
APPLETRONICS, 

SPECTRUM, MAXXI, D 81000, EXATO 
MICROENGENHO I, II 


TRS 80 (MOD I), D8000, D8001, D8002, 
DGT100, DGT101. 


TRS 80 (MOD III), JRSYSDATA, 
CP300, CP500, NAJA 
IBM, EGO, NEXUS, CP 2001 
SCOPUS. 


TK2000, COMPATÍVEL C/ APPLESOFT 


C. J. Roda 

Os micros dentro da mesma célula são 
o que definimos por compatíveis. É 
bom notar que a tabela não está com¬ 
pleta (surge uma nova marca de mi¬ 
cros por dia . . .) e também é bom que 
fique claro não me canso de repetir) a 
compatibilidade perfeita não existe! 

Droga! Este programa não passa 
no meu micro! 

Esta expressão deve ser a mais ou¬ 
vida dentro das livrarias técnicas e ban¬ 
cas que vendem revistas importadas 
sobre computação. A verdade é que, 
não importa qual micro você possui, 
sempre existirão mais programas para 
os outros micros ... (a maçã do vizi¬ 
nho sempre é mais vermelha) "Mas 
caramba! Este negócio parece que 
está escrito em Basic, mas não pare¬ 
ce o meu Basic... E o que são es¬ 
tes POKES aqui? Eu tenho POKE Et 
PEEK no meu computador mas ... 
E estes caracteres gráficos, o que 
são ?... £ esta linha REM esquisita, 
que será? ... Uai, aqui diz que tem 
uma rotina em linguagem de máqui¬ 
na, mas eu não vejo Unha REM ... 
Como será que eles fazem? ... 
DROGA!" 

Estes pensamentos e outros, tal¬ 
vez até impublicáveis, são resultado de 














uma incompatibilidade de gênios en¬ 
tre o seu computador e um outro 
qualquer . . . Mas porque não "adap¬ 
tar" de uma máquina para outra? Mas 
como? Entendendo o que uma outra 
máquina faz. Você mesmo pode, com 
um pouco de imaginação e algum tra¬ 
balho, "fazer a sua máquina fazer". 

Vice-Versa 

Para iniciar a seção vamos dar 
uma olhada na forma com que o TK e 
o TRS-80 armazenam suas linhas de 
programa. 0 objetivo é sugerir, ao pos¬ 
suidor do TRS-80 e do TK, algumas 
idéias de como criar um renumerador 
e, possivelmente, um programa que 
crie outros programas. Numa segunda 
parte do artigo (próximo número) mos¬ 
traremos as tabelas de caracteres alfa¬ 
numéricos, gráficos e o código ASCII, 
utilizados pela maior parte dos compu¬ 
tadores, mas não peloTK. 

Vamos a la digitacíon? 

Se você tem TRS-80 modelo I* 
ou compatível ou TK ou compatível, 
digite o programa da figura 1. 


O PROGRAMA 

r \ 


10 REM 0000* 

20 REM UICE-UERSR - MICROHOB6V 
30 PRINT "TRS-80 (Ti OU TK (5'. 

40 INPUT R$ 

50 IF R$="T" THEN LET CL=17129 

60 IF R*="T" THEN L.ET F L=0 

70 IF S" THE»T LET CL. - 16509 

80 IF THEN LEI FL=118 

90 IF P$o"S" RND R%0'T" THEN 
GOTO 40 

100 PRINT "COMECO DR LINHR ‘ , Cl_ 
110 PRINT "CODIGÜ DE FIM DE LIN 
HR ”;FL 

120 PRINT CL;" ";PEEK (CL);" **; 

CHR % (PEEK (CL) ) 

130 IF PEEK (CL)-FL THEN PRINT 
140 LET CL =CL + 1 


linha REM precisa ser digitada, neste 
caso, porque é dela que iremos falar. 

Rode o programa. 0 programa irá 
perguntar em que máquina está, TRS- 
80 ou TK. Assim que você responder, 
ele irá mostrar na tela, numa mesma li¬ 
nha, um endereço de memória (I), um 
byte (PEEK (I) ) e um caractere ou co¬ 
mando (CHR$ (PEEK (I) ). (Atenção 
possuidores de 80s! Se for preciso vo¬ 
cês terão que parar a impressão dos 
dados, que será contínua, usando 
BREAK, assim que a tela estiver cheia. 
0 TK para automaticamente. Para con¬ 
tinuar, em qualquer das máquinas di¬ 
gite CONT). 

Vamos dar uma olhada no que es¬ 
tá na tela (figura 2). 


TRS-80 (MOD.I) 


17129 


17130 


17131 


244 


mB 

MB 


mB + MB * 256 = 
endereço do 

começo da próxima linha 


17132 


19 


mB mB + MB * 256 = 

MB n?desta linha 


17133 


147 


REM (comprimido) 


17134 


17135 


17136 


17137 


17138 


17139 


< 


^Icaracteres^ / 


códigos 

ASCII 


— CÓDIGO DE FIM DE UNHA 
PRÓXIMA LINHA 


TK 


16609 

9 

MB 

MB * 256 + mB = 

16619 

19 

mB 

n? desta linha 

16611 

7 

mB 

mB + MB * 256 + 4 = 

16612 

9 

MB 

n?de bytes ocupados por 
esta linha 

16613 

234 


REM (comprimido) 

16614 

9 

9 


16615 

9 

9 


16616 

9 

9 


16617 

9 

9 


16618 

16619 

23 

118 

• 

-CÓDIGO DE FIM DE LINHí 


PRÓXIMA LINHA 


Figura 2 


v__y 

Figura 1 

Não se assuste. Não importa se 
você acha que esta é uma listagem de 
TK. Ela foi escrita para rodar, sem alte¬ 
rações, também no TRS-80. Atenção 
rápidos no gatilho, digo, no teclado! a 


*Nota: Se você tem um TRS-80 mode¬ 

lo III (sem disco) ou compatível, modi¬ 
fique o endereço 17129 para 17386 e 
some 257 a todos os endereços. 


Como você pôde observar , as li¬ 
nhas de programa começam a ser ar¬ 
mazenadas, no TK, a partir do ende¬ 
reço 16509 e no TRS-80 (modelo I) a 
partir 17129. Os primeiros quatro by¬ 
tes, em ambos os casos, referem-se à 
linha de programa. (Note as diferenças 
na figura). O código 118, no TK, indi¬ 
ca o fim de linha. No TRS-80 esse có¬ 
digo é 0. O fim de programa é indicado 
pelo código repetido duas vezes (118, 
118 no TKe 0,0 no TRS-80). 

Dois desses bytes referem-se ao 
número de linha (veja figura). Portanto 
você pode alterá-lo, se quiser. Expe¬ 
rimente: 


POKE 16510, 9 (para TK) 

POKE 17131,9 (para TRS-80) 

E depois liste, o programa. A linha 
REM mudou de número. Mas cuidado 
porque se os números de linha ficarem 
fora de ordem, as coisas podem se 
complicar . . . Esta maneira de alterar 
números de linha (através de POKES) 
é utilizada nos renumeradores em Ba¬ 
sic (Veja a Microhobby n? 1 ou a n° X). 
Você pode desenvolver seu próprio re¬ 
numerador utilizando estas informa¬ 
ções ou alterar o seu gosto o que nós 
já publicamos. Os outros dois bytes 
referem-se no TRS-80, ao endereço da 
próxima linha; no TK referem-se ao 
comprimento da linha. Se você der 
uns POKEs por aí, o seu programa 
provavelmente vai embaralhar. . . (su¬ 
gestão: experimente, mas só depois de 
ter gravado o programa . . .) mais uma 
experiência interessante: localize na te¬ 
la o código de fim de linha do seu com¬ 
putador. (0 ou 118). Veja em que ende¬ 
reço está. Agora, no endereço se- 
guinte, através de um POKE, coloque 
o mesmo código. No nosso caso, pa¬ 
ra a primeira linha, o POKE ficaria as¬ 
sim: 

POKE 16520, 118 (para o TK) 

POKE 17140, 0 (para o TRS-80) 

Agora liste o programa. Só ficou a 
linha REM, certo? Isto porque o com¬ 
putador considera como indicação de 
fim de programa esses dois códigos 
repetidos! 

Note que os comandos são com¬ 
primidos em um único byte e depois 
decodificados pela ROM na hora de 
apresentá-los na tela. Isto fica eviden¬ 
te para o TK mas não para o TRS-80. 
(Veja de novo a figura 2), uma vez 
que a ROM só decodifica e apresenta 
na tela o comando descomprimido na 
apresentação da listagem. (Exemplo 
no TK, a instrução PRINT CHR$ (245) 
mostra na tela o comando PRINT. No 
TRS-80 não se conseguiria isto porque 
as instruções PRINT só se referem aos 
caracteres alfanuméricos e gráficos e 
nunca a comandos. Mas é possível 
mudar o REM da linha 10. Experi¬ 
mente: 

POKE 17133, 178 (para o TRS-80) 

POKE 16513, 245 (para o TK) 

Agora liste o programa novamen¬ 
te. A linha rem não é mais REM, é 
um PRINT! A ROM decodificou o byte 
pokeado naquele endereço como um 
comando, que evidentemente funcio¬ 
nará durante o programa. (Aqui a su¬ 
gestão sem compromisso: que tal vo¬ 
cê escrever um programa que escreva 
outros programas? O caminho da 
construção das linhas é este . . .) O 
MICROHOBBY 17 

















































Pierluigi Piazzi 


Aristóteles considerava o cérebro 
humano como um órgão destinado 
simplesmente a esfriar o sangue. Só 
em meados do século XX as funções 
do sistema nervoso central começaram 
a ser parcialmente compreendidas. 

Em 1861, o francês Paul Broca, 
ao analisar cérebros de cadáveres de 
pessoas que, em vida, tinham pertur¬ 
bações na fala, identificou, uma cir¬ 
cunvolução no hemisfério esquerdo, 
responsável pelo processamento desta 
função. 

Podemos considerar esta data co¬ 
mo o início da decifração do HARD¬ 
WARE da nossa mente. Esta decifra¬ 
ção foi muito lenta e ainda hoje, um 
século depois, podemos nos conside¬ 
rar no começo. 

Os estudos orientaram-se muito 
em direção ao software do nosso cére¬ 
bro: a psicologia, a psicanálise e a psi- 
colingüística. 

Só muito recentemente, porém, 
é que a neuro-anatomia e a neuro- 
fisiologia começaram a se tornar as 
vedetes do progresso científico. 

Um dos fatos mais importantes 
estabelecidos até agora, e cujo estudo 
rendeu um prêmio Nobel ao Dr. Sperry, 
é o da assimetria funcional do cérebro. 

Anatomicamente os dois hemisfé¬ 
rios cerebrais são praticamente iguais 
(a rigor um é quase a imagem espe¬ 
cular do outro). Funcionalmente, po¬ 
rém, eles exercem papéis distintos: 

0 hemisfério esquerdo é respon¬ 
sável pela linguagem (nele se situa a 
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"zona de Broca"), pelo raciocínio arit¬ 
mético e algébrico. 

0 hemisfério direito, ao contrário, 
é responsável pela percepção musical 
e espacial. 

É como se tivéssemos, dentro do 
crânio, um cientista e um artista. Co¬ 
mo o mesmo corpo não pode ser co¬ 
mandado por duas mentes, um dos 
dois hemisférios deve "comandar". Em 
noventa por cento das pessoas, o he¬ 
misfério dominante é o esquerdo. 

Esta dominância reflete-se tam¬ 
bém socialmente: a "razão" ou seja, 
o raciocínio lógico-dedutivo é sempre 
levado mais a sério que a "intuição". 

Mesmo que a nossa mente direita 
chegue a alguma conclusão verdadei¬ 
ra, a nossa mente esquerda sempre 
cobra como um "demonstre"! Ora, a 
demonstração nada mais é que uma 
seqüência verbal, coisa que o nosso 
lado direito é incapaz de efetuar. 


Em alguns países, entre os quais 
o Brasil, a dominância do lado esquer¬ 
do é culturalmente tão acentuada, que 
para quem acha esta afirmação um 
pouco radical, proponho que medite 
sobre alguns destes fatos: 

Pergunte por exemplo, a um tran¬ 
seunte nos Estados Unidos a indicação 
de algum logradouro: é extremamente 
comum se ouvir uma resposta do tipo: 
"ande tantas quadras para leste e de¬ 
pois tantas para o norte". Experimente 
perguntar à qualquer pessoa no Brasil, 
para que lado fica o Norte. Você terá 
sorte se ela souber distinguir a esquer¬ 
da da direita. Ou então experimente 
mostrar a planta de um apartamento 
a várias pessoas. É surpreendente a 
quantidade das que não conseguem 
relacionar a planta com o apartamento 
real. 

Na minha experiência como pro¬ 
fessor, duas coisas me chamaram par- 


DOMINANTE 

DOMINADO 

Linguagem / 


Música 

Álgebra / 


\ Visão espacial 

Aritmética / 


\ Relações geométricas 

Raciocínio digital 1 


I Raciocínio analógico 

Razão 


J Intuição 

Rigor \ 


y Visão artística 

ESQUERDO 

DIREITO 


A especialização do cérebro humano. 










ticularmente a atenção para este tipo 
de deficiência: uma delas foi a extrema 
dificuldade que sempre encontrei para 
ensinar determinados tópicos do ele- 
tromagnetismo, justamente os que exi¬ 
gem do aluno maior visão espacial. 
A outra é relativa a uma pergunta que 
me foi feita várias vezes: "se a água 
sempre corre para baixo, como é que 
tem rios que correm para o norte?" 

Na primeira vez que me fizeram 
esta pergunta, fiquei perplexo, depois 
percebi o motivo da confusão: como 
os mapas são pendurados na parede 
com o Norte para cima, na cabeça de 
muita gente um rio que corre para o 
norte está subindo! Este tipo de confu¬ 
são é análogo à que faz com que mui¬ 
tos achem estranho que os japoneses, 
do outro lado do mundo, não caiam! 
O que a escola faz para evitar este tipo 
de ignorância espacial? Nada! Ensina 
Geometria de maneira axiomática e 
não intuitiva. Retira do vestibular a 
prova de Desenho (principalmente des¬ 
critiva) ensina Geografia em mapas 
pendurados nas paredes, ou seja, não 
só se preocupa com isto como toma 
medidas que mostram como este tipo 
de problema é completamente igno¬ 
rado. 

Na primeira fase do exame vesti¬ 
bular deste ano da CESGRANRIO foi 
apresentada a seguinte questão: 


Quando esta questão foi apresen¬ 
tada a um grupo de professores de 
Física de São Paulo, ela provocou os 
mais espantados comentários. Todos 
acreditaram que fosse impossível errar, 
entretanto, quando apresentamos a 
questão a um grupo de alunos ficamos 
surpresos com a porcentagem que as¬ 
sinalou b ou d. 

Pesquisando instrumentos e téc¬ 
nicas que permitam suprir esta defi¬ 
ciência, analisei o programa "Labirin¬ 
to", comercializado pela Multisoft para 
TK 85, CP 200 ou TK 82-C e TK 83 
com expansão para 16K. 

Uma vez carregado o programa (4 
minutos) ele gera a seguinte situação: 
Inicialmente, pergunta ao usuário o ta¬ 
manho do labirinto (que pode ir de um 
mínimo de 3x3 células a um máximo 
de 15x9). 

A seguir, se o usuário quiser, mos¬ 
tra, durante um certo tempo a planta 
do labirinto. 




Em seguida, (esta é a parte mais 
bonita do programa), ele mostra o labi¬ 
rinto em três dimensões, ou seja, mos¬ 
tra uma perspectiva esquemática. Esta 
perspectiva corresponde ao ponto de 
vista de alguém adentrando no labi¬ 
rinto. 



O usuário pode escolher entre vi¬ 
rar para qualquer um dos outros três 
lados (para trás, à direita e à esquerda) 
ou dar um passo à frente. 


f - 

PORfl MOUER-SE UTILIZE -JOYSTICK 
OU RS TECLR5 R6RIXO 

'* T** - UM PASSO PRRR FRENTE 

••5*' - UIRR E OLHO R ESQUERDA 

"S" - UIRR E OLHR R DIREITA 

'•6" - UIP.R E OLHR PARA TRAS 

•’0” - PEDE POR AJUDA 

"O" - DESISTO 

UOCE QUER UER O PLANO DO 
LABIRINTO ANTES OE ENTRAR NELE" 

(S/N) 

\_ J 


Se está perdido, pede ajuda e a 
tela mostra, durante algum tempo, a 
planta com a posição do usuário mar¬ 
cada por um asterisco. 

O fundamental neste programa é a 
possibilidade de associar a planta bi¬ 
dimensional, vista de cima, com a loca¬ 
lização em perspectiva simulando as 
três dimensões (se algum leitor quiser 
de aprofundar um pouco mais no esu. 
do de hardware da mente humana, 
aconselharia o magnífico livro "Os Dra¬ 
gões do Éden" do astrônomo Cari Sa- 
gan — Ed. Francisco Alves). 

Testando este programa com pes¬ 
soas das mais variadas formações e 
idades, percebi duas coisas importan¬ 
tes: inicialmente ele permite detectar 
deficiências na visão espacial do usuá¬ 
rio de maneira bem nítida. Posterior¬ 
mente, com o uso continuado do "jo¬ 
go" há uma melhora na habilidade 
do usuário, mostrando o caráter didá¬ 
tico do programa. 

Resumindo, esta fita, no mercado 
há bastante tempo, tem sido comer¬ 
cializada (e comprada) como jogo, 
quando na realidade se constitui num 
instrumento didático da mais alta quali¬ 
dade. O 
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LANÇAMENTOS 


LINHA APPLE 

□ Interface (adaptador) para dois 
Joysticks 

□ Placa de conversão para sistema 
PAL-M com R.F. 

LINHA SINCLAIR (TK-85/83) 

□ Programas em EPROM (cartucho) 
— 10 utilitários: Assembler/Disas- 

sembler, Load/Save/Verify em 
1500 bps., Renumerador, Gera¬ 
dor de Linha, etc. mais 27 roti¬ 
nas de vídeo 

□ Jogos em Cartucho (EPROM) 

SOFTWARE 

□ Jogos para TK, CP200/300, Apple, 
etc. 

□ Aplicativos para Apple II — CP/M 
— Controle e Administração Imo¬ 
biliária 

— Contabilidade e Folha de Paga¬ 
mento 

— Controle Contábil: Contas a Pa¬ 
gar/Receber, Movimento ban¬ 
cário, Controle de Estoque 
— Cadastro e Mailing List 
— Processador de Textos 

□ Aplicativos para CP500/300, D-8000 
etc. 

— Controle de Estoque 
— Mailing List e Cadastro 
— Controle e Pesquisa para Biblio¬ 
tecas 

— Base de Dados (4 Módulos) em 
Cassete 


Bolsas em nylon acolchoado para transporte 
de computadores (modelos para TK, 
CP200/300, Apple, etc.) 


SOLICITE FOLHETOS 


Atendemos pelo Reembolso Postal e Varig 



aTR 




INFORMÁTICA 


Al. dos Arapanés, 841 — CEP 04524 
S. Paulo - SP - Fone 542-1917 

V__ 
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ATAQUE 

ESPACIAL 


Gustavo Egfdio de Almeida 


Memória — 1445 bytes 
Soma Sintática — 34740 


Você dispõe de 200 Tiros de Laser 
e necessita abater no mínimo 15 naves 
invasoras. Para alcançar o final do jo¬ 
go. 



derá o jogo e será destruído. 

Para mover sua nave use as se¬ 
guintes teclas: 

6 — Move sua nave para baixo 

7 — Move sua nave para cima 

8 — Dispara o Laser 


ie lft r.px-px 
20 let u=turl "ape" 

30 LET KsVRL " 10’* 

40 LET G=L‘RL "O" 

50 LET XcINT (RNDfWL "IS*') +UO 
L '*2** 

60 LET RsR+URL "1" 

70 IF fr-VHL "21" THEN GOTO URL 
"260" 

63 LET YeUfiL "3©" 

03 PRINT RT K,URL "0";CHR$ URL 
** 130" ; CHR$ URL ** 14-6" ; RT X,Y;"X" 
100 IF J<R THEN GOTO URL "ISO" 
130 IF INKEV$*“7" THEN LET K=K- 
URL "1" 

120 IF INKEY*s"0" THEN LET K=K + 
URL ”1" 

130 IF INKEY$="8" THEN PRINT RT 
K,VRL "2"; "********«*********** 

14.0 IF INKEY$>"5" THEN LET 
URL “1" 

160 LET V=Y-URL "1.5" 

160 IF Y=URL "3" THEN LET G=G+U 
RL. "1" 

170 IF G=UfiL "5" THEN GOTO URL 
"24.0“ 

160 IF Y*URL "3" THEN GOTO URL 

"50" 

190 IF INKEY$s"8" RND K=X RND Y 
<21 THEN GOTO URL "220" 

200 CLS 
210 GOTO 90 

220 PRINT RT X,Y+URL "1";CHR$ V 
RL "169" 

230 GOTO URL "50" 

240 PRINT "UOCE FOI DESTRUÍDO" 
250 STOP 

260 PRINT "UOCE UENCEU" 

270 PRINT "ENERGIR RESTRNTE: ", 

ü 
































:> 



"Por favor, desligue-me! 

Eu quero morrer!... 

Há uma solitária em meu intestino. 

Ela é da mais nociva espécie: 
a sangüinária Taenia Komputadorum. 
Sei que se você quiser, pode evitar 
meu sofrimento. Por favor, 
des/igue-me!" 



TAENIA 

KOMPUTADORUM 


Taenia Komputadorum 
Memória Ocupada = 1866 bvtes 
Soma Sintática = 1653 



Computadores = TK 83 e compatíveis 


Sei que é difícil acreditar, caros 
leitores, mas seu TK redigiu sozinho o 
texto acima! Eu apenas tirei uma có¬ 
pia da tela onde o micro o produziu, 
para poder apresentá-lo a vocês! Isto 
ocorreu por volta das 4:30 da madru¬ 
gada do dia em que eu rodei nele, 
pela primeira vez, o programa listado 
na figura 1. Eu havia passado a noite 
inteira brincando com ele e, quando os 
primeiros clarões avermelhados do sol 
cingiam o horizonte leste prenuncian¬ 
do o raiar de um novo dia, entre os 
últimos dois goles de um jarro de suco 
de morangos silvestres que ganhei de 
meu amigo Nabor Rosenthal, fui sur¬ 
preendido com a mensagem na tela. 

Após lê-la, senti-me muito mal; digitei 
COPY (e N/L) e adormeci! 

Depois disso venho tentando, sem 
êxito, obter outras mensagens. Na es¬ 
perança de que algo semelhante acon¬ 
teça com vocês, resolvi comunicar- 
lhes o que me ocorreu. Se algo es¬ 
tranho acontecer com seus TK's, por 
favor, não deixem de nos informar. 

O programa Taenia Komputado¬ 
rum cabe com apenas dois kbytes de 
RAM e você dirige o verme através 
das teclas 5, 6, 7 e 8 (ou joystick). 


Renato da Silva Oliveira 


"20** *RND 
••20" íRND 


' 0s 3REM "flRENIR 0OMPUTRDORUN" X 
IO FR ST 

20 FOR fl=PI-PI TO URL ^l** 

30 PRXNT RT R,PI—PI*" OH 

L #, 2l*';-Si*; RT PI-PI,Ri "•|5“; RT URL 
”21 •• * R; • JE" 

40 NEXT R 

50 LET L=URL "ll" 

50 LET C=L 
70 LET Y =L 
G0 LET X=C 
90 LET «$ = *••• 

100 LET C$ = M ** 

110 LET Z=PI/PI 
120 LET B=PI-PI 
130 LET U=B 
140 SLOU 

150 PRINT RT Y,X;-B” 

ÍGO IF U >URL ’*15" THEN GOTO 250 
170 LET S = INT (PI/PIfURL ,, 5 ,, tRí-l 
D) 

180 LET T =PI/PI+VflL 
190 LET UsPI/PIfVflL 
200 PRINT RT T*U; 

210 GOSUB URL "490” 

220 IF EOPI-PI THEN GOTO URL " 
180" 

230 PRINT S 
240 LET U=U+S 
250 LET D$=INKEY$ 

260 IF O*'” THEN LET C$=D$ 

27P IF C$ < > **5’* RND C$<>"e“ RND 
C$ < > *'7** RND C$ <>'•&' THEN GOTO UR 
L ••250** 

280 LET R$=R$+C$ 

290 LET Y =Yt(PI/PI RND C$ = "6“) - 
(PI/PI RND C$="7") 

300 LET XsX+(PI/PI RND C*=-8”>- 
(PI/PI RND C* = "5**) 

310 PRINT RT Y,X; 

320 GOSUB URL "490" 

330 IF E =PI-PI THEN GOTO URL “4 
00 •* 

340 IF E < >URL **B’’ RND EoURL ** 1 
28" THEN GOTO URL ,, 370" 

350 PRINT RT PI-PI* URL CP. 

ESCEU: ” ; Z-PI/PI; ** '* 

360 ST OP 

370 LET B =B-f E -URL "28" 

380 LET Z —Z +E-URL 
390 LET U=U-E + URL "2Q" 

400 PRINT •*■*• 

410 IF B > PI—PI THEN GOTO URL ”4 
70** 

420 PRINT RT L*C*" ** 

430 LET L=Lf (PI/PI RND R$(l)="6 
") - (PI/PI RND R$ ( D = '*7** ) 

440 LET C=C+(PI/PI RND R$<1)=**G 
")-CPI/PI RND fl$(l)="5") 

450 IF LEN R$>PI-PI THEN LET R$ 
=R % (URL ** 2 TO ) 

460 GOTO URL "150" 

470 LET B =B —PI/PI 
460 GOTO URL ** 150“ 

490 LET E =PEEK (PEEK 16398 4-256* 
PEEK 16399.» 

V500 RETURN J 


Seu objetivo é alimentá-lo com a maior 
quantidade de comida (números inseri¬ 
dos aleatoriamente na tela) possível. 
Cada vez que a Taenia é alimentada, 
ela cresce tanto quanto o valor nu¬ 
tritivo de sua comida. Cuidado para 
não fazê-la perfurar as paredes in¬ 
testinais do micro (quadrado na tela), 
ou ainda, devorar a si mesma. Caso 
isto ocorra, a Taenia morre e surge na 
tela o comprimento que ela cresceu 
sendo alimentada por você (figura 2). 



A Taenia morre comendo a si mesma ... 
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Neste mês, apresentamos um pro¬ 
grama muito especial para você que 
gosta de romances e que é um eterno 
sonhador: Romeu e Julieta, a famosa 
peça de teatro de Shakespeare. 

"Romeu e Julieta" são dois jovens 
apaixonados, cujas famílias são inimi¬ 
gas e não permitem, de maneira algu¬ 
ma, o romance entre os dois. Mas eles 
se amam e não se intimidam pelas 
ameaças de seus pais. 

Julieta pensa numa solução para 
libertar-se de vez das amarras pater¬ 
nas: fugir com Romeu. Para isto, ela 
procura o sempre bom amigo padre da 
família para auxiliá-la e este lhe entre¬ 
ga um frasco com uma poção que, ao 
tomá-la, Julieta ficará adormecida e to¬ 
dos pensarão que ela esta morta. Ju¬ 
lieta será colocada no mausoléu da fa¬ 
mília e Romeu irá buscá-la. 

Porém, nada dá certo no plano da 
bela Julieta! Não avisam Romeu a tem¬ 
po e o jovem, desesperado, corre ao 
mausoléu e encontra sua amada apa¬ 
rentemente morta! 

O apaixonado Romeu desespera- 
se e se mata com sua espada. Nisso, 
Julieta renasce de seu sonho e vê seu 
amado morto ao seu lado. A bela jo¬ 
vem percebe neste momento, que o 
único caminho para ficarem juntos, é a 
morte . . . 

Assim termina o trágico romance 
de Romeu e Julieta! . . . e inicia-se o 
nosso jogo-aventura . . . 

Romeu e Julieta é um programa 
para ser usado no seu TK, com expan¬ 
são de 16k ou mais de memória. Um 
típico jogo-aventura que funciona basi¬ 
camente como um programa educati¬ 
vo, ou seja, um programa cuja finali¬ 
dade é desenvolver o aprendizado de 
jovens na faixa infanto-juvenil (figu¬ 
ra 1). 


POMFtl F . >Ul TFTH 


este e“ um mrtemrtico 

UUGO-RUENTURR . 


SERRO GERRDOS UM CERTO NUMERO DE 
PERGUMTRS DURANTE R5 OURTS 
NOTRR-SE-R* O DESFNROLRR DO 
FRMOSO ROMRNCE SHfiKESPERIRNO. 


Figura 1 

Durante o jogo, são gerados inú¬ 
meros testes e, como gratificação a 
cada resposta certa, o computador se 
encarrega de produzir uma cena com 
efeitos de animação: uma cena da his¬ 
tória é simulada na tela e sua seqüên- 
cia é conseguida através das respostas 
certas inseridas no computador. 
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Quando o programa é posto para 
rodar, após uma rápida explicação do 
funcionamento do jogo, surge, no can¬ 
to inferior da tela, o cursor L, indican¬ 
do que o computador está pedindo 
dados. 


Estes dados referem-se ao nível de 
dificuldade do jogo que pode variar de 
1 até 100 (figura 2). Em qualquer um 
destes níveis, são geradas questões 
envolvendo as quatro operações arit¬ 
méticas: soma, subtração, divisão e 


Figura 2 


Figura ó 




















multiplicação. 

No nível 1, são propostas opera¬ 
ções com um ou dois dígitos (figura 
3). No nível 100, ou seja, no nível de 
dificuldade mais elevado, são geradas 
operações com três dígitos (figura 4). 


Figura 4 



São geradas um total de 40 ques¬ 
tões, no máximo. 

À cada questão correta, notar-se- 
á mudanças no cenário apresentado na 
tela. 

A seguir, citaremos algumas das 
cenas desenvolvidas na tela: 

— A jovem Julieta move-se em di¬ 
reção à da torre. Romeu, movimenta- 
se em direção ao castelo e, no meio de 
seu percurso, dois fatos ocorrem: Ju¬ 
lieta, avistando seu amado, joga uma 
flor em sua direção, como prova de seu 
amor. Uma coruja, que estava no topo 
da torre, percorre o céu de um canto 
ao outro da tela e pousa numa árvore 
em frente ao castelo. 

— Romeu, ao chegar ao pé da tor¬ 
re, inicia uma difícil mas compensa¬ 
dora escala até a sacada da torre. 


Por fim, Romeu abraça Julieta, 
despedindo-se logo em seguida. 

Julieta recolhe-se aos seus apo¬ 
sentos e Romeu inicia uma caminhada 
de volta ao ponto de origem. 

Basicamente, são essas as cenas 
demonstradas na tela, no decorrer do 
jogo. 

Por fim, caso o jogo for bem suce¬ 
dido, o computador apresenta no ví¬ 
deo a seguinte mensagem: 

"Romance concluído, tecle Z para 
recomeçar". Caso contrário, Romeu 
morrerá e surgirá na tela a mensagem: 

"Que azar, hein? Tecle Z para re¬ 
começar". 


Programa adaptado e reestruturado da re¬ 
vista Popular Computing Weekly — Março/83. 














ROMEU E JULIETA 


5 REM ROMEU E JULIETfl 

10 PRINT AT 4,7; “ROMEU E JULIE 

20 PRINT RT 10,»;"ESTE E* UM M 
RTEMflTICO JOGO-RVENTUR 

fl . ; RT 15,0; "SERRO GERADOS UM CE 

RTO NUMERO OEPKRGUNTAS DURANTE R 
5 OURIS MOTOR-SE-A* O DE5EN 

ROLRR DR FOMOSA TRAGEDIR 5HR 

KESPERIRNR. '* 

30 FOR F = 1 TO 4-00 

31 NEXT F 

4-0 CLS 

50 PRINT RT 10,0;"TECLE O NIUE 
L DE DIFICULDADE (1 RTE* 100: 

60 INPUT P 

70 IF P<1 OR P > 100 THEN GOTO 4. 



120 LET = 

130 LET C* = 

14-0 LET 0* = "! 

150 LET E$ = ‘\ 

1 5g LE^I^ 

170 LET 

180 FOR E=® TO 18 

ISO PRINT RT E,0;RÍ 

200 NEXT E _ 

210 pRiNT RT 2,0 'jSKanai^pf ;ATÍ 

3,0;EÍ,RT 4-,©;E$,AT 10,0;E* 

220 FOR E-5 TO 9 
230 PRINT RT E,0;DÍ 
24-0 NEXT E 

£5© FOR E = 11 TO 17 5TEP 2 

260 PRINT RT E,0,C$,RT E+l,0;Bs 

270 NEXT E 

28© PRINT RT 19,0,F$_ 

3x0 PRINT RT 6,30; "WT" 

•pfl^";RT 8,28; RT 

IV^^AT 10,27; WW 
320 PP.INT RT 11,26, jJWM 
,29; "AffÉ" , RT 13,27; VWQk 
26 ; "mhIBíí" 

33© FOR E = 15 TO 18 _ 

34.0 PRINT RT E,31; "B" 

350 NEXT E 
36© PRINT RT 
410 LET K=7 
42© LET J = 1 
430 LET 5=16 
44© LET R =29 

450 PRINT RT K,J;"0",AT K+1,U,“ 
< **; RT K+2 , o; '* ' 

460 PRINT RT 
a 1 ‘RT S +2 , R , *" 

470 PRINT RT 
5 **; RT 2,27, _ 

480 PRINT RT 9,8, i**;RT 0,3;“X 
; RT 1,3; flT 2,3; **■ 


;RT 7,29; 
9,27; "fcf. 


; RT 
, RT 


12 

14 


15,1; "C";TRB 5; “T' 


, ' R " 


g) ’,RT 5+1,R; ' 
"■T;RT 1,27 


_ LET N=0 

910 LET TOT=0 

- - -_ INT 

8 = INT 
C = INT 
F = INT 
G = INT 
H=R+B 
I =C -F 


(RND*10*P> 
(RND*5 *P) 
ÍRND*10*P) 
(RNDlSffP) +1 
<RND*2*P) 


1O10 LET 
1020 LET 
1330 LET 
1040 LET 
1O50 LET 
1060 LET 
1070 LET 
1080 LET M=B*F 
1090 LET O =R *G 
1100 PRINT RT 20,0; G*, AT 21,0;Gs 
1110 PRINT RT 20,0; "QUANTO E“ 

R; - + ";B, ■’ *?** 

1120 INPUT X 

1130 IF X < >H THEN PRINT RT 21,0; 
■ÍDB3S R RESPOSTR E* ";H 
114 0 IF X=H TMEN PRINT RT 21,0,' 
jgBS R RESPOSTR E* ", H 
115© IF X=H TMEN GOSUB 4000 
1160 GOSUB 4500 _ 

1200 PRINT RT 20,0; G*, AT 21,0; Gü 
1210 PRINT RT 20,0; “OURNTO E* 

C; " - ";F;" ?” 

1220BINPUT X 

1230 IF X<>I THEN PRINT RT 21,0; 


___ fl RESPOSTR E* **; I 

IS® IF X = I THEN PRINT flT 21,0;*' 
a» R RESPOSTR E* " ; I 
1250 IF X=I THEN GOSUB 4000 
1260 GOSUB 4500 ^ 

1300 PRINT RT 20,0;G*;RT 21^0;G$ 
1310 PRINT RT t 20,0;"QUANTO E* ; 

1 330 IF P X<>B THEN PRINT RT 21,0; 
-BEHí R RESPOSTR E* **; B 

1340 IF X=B THEN PRINT RT 21,0;“ 
SBB R RESPOSTR E* **;B 
1350 IF X=B THEN GOSUB 4000 
1360 GOSUB 4500 

1400 PRINT RT 20,0, G*;RT 21,0; G* 
1410 PRINT AT 20,0;"QUANTO E* 

1 430 IF P X<>0 THEN PRINT RT 21,0, 

“ W3Ü R RESPOSTR E* "; O 

144 0 IF X=0 THEN PRINT RT 21,0;” 

391 A RESPOSTR E* ", O 

1450 IF X=G THEN GOSUB 4000 

1460 GOSUB 4500 

1500 GOTO 1000 

4010 IF N<=5 THEN GOSUB 5000 
4020 IF N=6 THEN GOSUB 5500 
4030 IF N >6 AND N<11 THEN GOSUB 
6000 

4040 IF N=il THEN GOSUB 6500 
4050 IF N >11 RND N<29 THEN GOSUB 
5000 

4060 IF N =20 THEN GQ5UB 7000 
4070 IF N>=29 RND N<34 THEN GOSU 
8 7500 

4080 IF N=34 THEN GOTO 8000 
4-090 LET N=N + 1 
4100 PRINT RT 17,1;N 
4200 RETURN 
4510 LET TOT =TOT + 1 
4520 IF TOT=40 THEN GOTO 8500 
4530 PRINT RT 17,5;TOT 
4540 RETURN _ _ . 

5010 PRINT RT K,U;"»0";AT K+l, U; 
RT K+2,J; "B “ 

5020 IF U=8 THEN GOSUB 550© 

5030 LET J=U+1 

5040 RETURN _ 

5510 LET Z* = ,, WÊtÊÊÊÊÊÊÊÊÊÊÊBt" 

5520 PRINT RT 6,10;"ROMEU,ROMEU' 

;RT 7,10;"ONDE";RT 8,10,"TU E5TR 
S“ ;RT 9,10;"ROMEU 7 
5530 GOSUB 9990 

5540 PRINT RT 6,10;Z*;AT 7,10;Z$ 
; RT 8,10; Z<; RT 9,10;Z* 

5550 RETURN 

6010 LET R=R —1 __ 

6020 PRINT RT S, R; “BB" ; AT 5«,R* 
“•■";RT s+2,P; 

5030 RETURN 

6510 LET X=400*COS (PI/3) 

5520 LET Y=400 +SIN (PIx2) 

6530 FOR Z=8 TO Y/16 

6540 LET U=.01*CY*Z-16*Z*Z> 

5550 UNPLOT .01*X*Z,U+10 
6570 PLOT .01*X*Z,U+10 
6580 NEXT Z 
6590 RETURN 

7010 FOR D =9 TO 26 _ _ 

7020 PRINT RT 6,D; "laUa" ;RT 6,D; 


. RT 5,29 


7030 NEXT D 
7040 PRINT RT 6,27; **■ 

; "U" 

7050 RETURN 

7510 LET S =3-1 _ 

7520 PRINT RT S,R;"S";AT 5+1,R, 
_ : tíT 5+3.R: "• ";flT S+3,R;"B" 


I”; RT 12,8; “ 
■ “; RT 10,9, 


_ ’*; FÍT S+2,R 
7530 RETURN 
8010 PRINT RT 13,8 

3020 PRINT RT 11,6 

"H" 

8030 GOSUB 9900 

8040 PRINT RT il,8;"S"JflT 8,9;' 
S";RT 9,9, "» ” ; RT 10,9; **■ " 

3050 GOSUB 9900 

3060 PRINT RT 10,9; ; RT 9,9;“* 

"; RT 8,9; flT 7,9;^" 

8070 GOSUB 9900 


8080 PRINT RT 7,8;"S";RT 8,8;“* 
■“; RT 9,8, 

8090 GOSUB 9900 

81000PRINT RT 6,10; "BOA NOITE**; fl 
T 7,10; "BOA NOITE"; flT 8,10;**TENH 
O OUE";AT 9, 10; "PARTIR RGORfl**;flT 
10,10;"NRO FIQUE MAGOADA" 

8110 GOSUB 9990_ 

8120 LET P$ = "■BBHBBBBBHflBBS" 

3130 PRINT RT 6,10;P$;AT 7,10;P* 
; RT 8,10.P$;AT 9,10, p$; flT 10,10, 

p$ 

3150 LET U=«J — 1 

8 160 PRINT RT K,U;"0B”;AT K + 1,U; 
** >B" ; flT K+2,U, “ *" 

8170 IF U=0 THEN GOTO 8200 
8190 GOTO 8150 

8200 PRINT RT 7,6, "»", flT 6,8; 

AT 9,8; "I * 

8210 GOSUB 9900 _ _ 

8220 PRINT flT 7,9;"B";RT 8,9, "gj 
; flT 9,9;". ";RT 10,9; "■■* 

3230 GOSUB 9900 

8240 PRINT RT 8,9;"B";RT 9,9; 
8250 PRINT RT 11,8; * ■ RT 10,9; 

..g.. 

3260 GOSUB 9900 

8270 PRINT RT 10,9; “®" ,RT 11,3;” 

8260 FOR 5=11 TO 15 

6290 PRINT RT S,S,"B";RT S+1,8;* 

H“;flT S +2.8; "» " ; RT S+3,8;** B " 

8300 NEXT S 

3310 FOR R=8 TO 29 

3320 PRINT RT 16, R, JB" . RT 16 + 1, 
AT 16+2, R, 

8330 NEXT R 

3340 LET Q*=" 

8350 FOR E=6 TO 12 
8360 PRINT RT E,10.:O* 

3370 NEXT E 

3380 PRINT RT 6,10;" ROMANCE COi-, 
CLUIDO **; flT 8,10; "TECLE g PARA", 
flT 10,10; "RECOMECflR" 

8390 INPUT Z$ 

8400 IF Z$="Z" THEN GOTO 100 
8410 GOTO 6390 
3510 LET D =26 

8520 PRINT flT S+1.D..flT S+1,D 
+ 1 , 

3530 LET D=D-1 

3540 IF D=R THEN GOTO 360© 

S545 IF D<10 THEN GOTO 873© 

3550 GOTO 8520 
8500 GOSUB 9900 

8610 PRINT RT S -1, R; "SB" ; AT S,P 
^jJfl|^";flT S + 1,R; flT S+2,R; 

8620 IF 5=16 THEN GOTO 8700 
8630 LET S=S+1 
8540 GOTO 3610 

87 00 PRINT RT 16 , R; ; RT 17,R 

; 'W , flT 18 , A; 

8710 GOSUB 9900 

3720 PRINT RT 7,7; "B",RT 3.7; "B 
;flT 9,7;"B 
8730 LET J=U-1 

8740 PRINT RT K,U;"0B”;RT K+1,U, 
AT K+2,U;“ *" 

8750 IF U=0 THEN GOTO 880© 

3760 GOTO 8730 
3800 LET 0$=” 

8810 FOR E =6 TO 12 
3820 PRINT RT E,10.;Q$ 

3830 NEXT E 

3040 PRINT RT 6,10,"QUE RZRR HEI 
N?";RT 8,10,"TECLE g PARA",RT 1© 
,10;"RECOMECRR" 

8850 INPUT Z$ 

3860 IF Z*="Z“ THEN GOTO 10© 

9000 GOTO 8850 
9800 STOP 

9900 FOR T = 1 TO 10 
9910 NEXT T 
9920 RETURN 

9990 FOR T = 1 TO 40 

9991 NEXT T 

9992 RETURN 

9998 SRUE "RyB" 

9999 RUN 
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COMO FAZER 
SUA ASSINATURA 


Para obter seu exemplar mensal (12 
números) da revista Microhobby conten¬ 
do muitos programas para o TK como 
também para o Apple e o TRS-80, inúme¬ 
ras dicas e as últimas novidades na área de 
informática, você deve fazer uma assina¬ 
tura. 

É importante ressaltar que o recebi¬ 
mento da revista é considerado a partir da 
data de recebimento do pedido de assina¬ 
tura, porém, há um período de 30 dias de 
carência até a revista chegar às suas mãos. 
Os números anteriores da revista podem 
ser adquiridos se as tivermos no mo¬ 
mento do pedido em nossos estoques, 
através do telefone 255"0722, diretamen¬ 
te com o Departamento Comercial. 

Para ter acesso a todas estas vantagens 
basta preencher, corretamente, o cupom 
anexo, colocá lo no correio junto a um 
cheque nominal ou vale postal em nome 
de Micromega Publicações e Material Di¬ 
dático, no valor de Cr$ 16.900,00. 


O envelope deverá ser selado e endere¬ 
çado com os seguinte dizeres: 


MICROMEGA P.M.D. LTDA. 
Departamento de Assinaturas 
Caixa Postal 54096 
CEP 01296 -São Paulo, SP. 


e dentro dele não deverá ter nada além do 
cheque e o cupom. 

No verso do cheque, escreva: 

"Destina-se ao pagamento de uma as¬ 
sinatura (12 números) da revista Micro¬ 
hobby". 

Quando este cheque for devolvido ao 
seu Banco com nosso endôsso, servirá (pa¬ 
ra você), de comprovante provisório até 
que nosso recibo seja confeccionado e en¬ 
viado pelo correio. 


GRÁTIS: UM MICROCOMPUTADOR 

CURSOS 




0 & 


TURMAS 

MANHÃ-TARDE-NOITE 
INCLUSIVE AOS SÁBADOS 

Turmas especiais para 
TK 82 - TK 83 - TK 85 - CP 200 

Cursos para alunos a partir 
delOanosde idade 


MATRÍCULAS 

ABERTAS 


PROMOÇÃO 40% DE DESCONTO 

^©MPUTflTlSW 
ICENTER 


R. Teodoro Sampaio, 2534 - Loja 40 
Pinheiros S.P. 












\ 






Micros e Minis 
Nacionais 

Sistemas Aplicativos 
Periféricos, 
Equipamentos, 
Móveis, etc. 


KYW INFORMÁTICA 


Rua da Lapa. 180-gr. 1.108/1.110 - CEP 20.021 
Telex: (021) 30980 - Rio de Janeiro - RJ 


elefone: (021) 


221-3069 


SoftKnstisa 

Revendedores Autorizados 


Rk> de Janeiro 


Republica do Líbana 25-A 
Rio de Janeiro - RJ 
CEP: 20061 

Gochet 

R: Dr. ElJaick, 25 S/5 
Nova Friburao - RJ 
tei.: 22.4208 

VGC 

Av Brasil. 10 S/07 
Araruama - RJ 
CEP: 28970 

ENTRHJVROS 

Av. Rio Branca 156 - térreo 
Rio de Janeiro - RJ 

MCS. 

Vise de Piraiâ. 303/217 
Rio de Janeiro - RJ 
tel.: 267.8597 

Pernambuco 


Alegra 


Caruaru 
CEP: 55100 

Alagoas 

Expoente 

Av. Siqueira Campos. 838 

Maceió - AL 

tel : (082) 223.3979 

Sâo Paulo 


Av. dos Imarès. 457 
Sõo ftaulo - SP 
tel.:61.4049 - 61.0946 


R: Boa Vista. 314 - 3? andar 
Sâo Paulo - SP 
tel.: 35.7131 R/32 


R: Amador Buena 855 
Ribeirão Preto - SP 
tel.:(016)636.0586 


Fotopttca 

Alameda Juruâ, 434 
Sôo Paulo - SP 
tel: 421.5211 

Rttz 

R: Frei Caneca. 7 
Santos - SP 
tel : 35.1792 

Computertand 

Av. Angélica. 1996 
Sõo RxJo - SP 
CEP: 01228 


R: Aurora. 704 
Sâo Paulo - SP 
tel : 221.6764 
RC Microcomputadores 
Av. Estados Unidos. 983 
Piracicaba - SP 
tel.: 33.7018 

Rio Grande do Sul 
Advanclng 

R: Andradas. 1560 galeria 
Malcon 518 Fbrto Alegre - RS 
tel.: 26.8246 

XH. Santas 

FÇa Otávio Rocha. 41 
Fbrto Alegre - RS 
CEP: 90000 

Indta Center 

R: Fioriano Fbixota 1112 conj. 
33/43 Santa Maria RS 
tei : (055) 221.7120 

Geremia Ltdo. 

Av Julio de Castilhos. 1872 
Caxias do Sul - RS 
tel.: 221.1299 


Av Julio de Castilhos. 3240 
Caxias do Sul - RS 
tel: 221.3516 


R: Julio de Castilho* 441 - 
1°andar Novo Hamburgo - RS 
tel : (0612)93 4721 


Bahia 

Oficcina 

Shopping Center Itaigara 
Ii40 -1 ° piso 
Salvador - BA 
tel.:(071)248.6666 

Santa Catarina 
Supermicro Show 

R: dos Ilhéus. 10 li 6 
Florianópolis - SC 
tel.: 22.8770 

Paraná 


Av. Batel. 1750 
Curitiba - PR 
tel . 243.1731 


Av. Mal. Deodoro. 311 
Curitiba - PR 
tel.: 224.3422 

Minas Gerais 
Computronix 

R: Sergipe. 1422 
Belo Horizonte - MG 
tei: (031) 225.3305 

Etetrorádto 

R: Aquiles loba 441-A 
Belo Horizonte - MG 
tel.: (031) 222.8903 

Micro Poços 

R: Assis Figueiredo 1072 
Fbços de Caldas - MG 
tel : (035) 721 1883 

Wow-Up 

Av Flonano Fbixota 396 
Uberlândia - MG 
tel. 235.1413 -235 7359 

Brasília 

Dtgitec 

SClN 302 bi A lj.63 
Brasília - DF 
tei : (061) 225.4534 


• CREDENCIAMOS NOVOS REVENDEDORES FARÁ TODO O BRASIL* 
















































~p 







zn 




— 1 
























ZLJ 

_ 



□ 


1 1 


Prof. Wilson José Tucci — Coordenador de Projetos Especiais da Escola Experimental Pueri Domus. 


MAIS SOBRE A MODIFICAÇÃO 
DE COMANDOS 


Tivemos no número 7 uma intro¬ 
dução sobre como fazer alterações no 
firmware do Apple, utilizando como 
exemplo um programa que copiava o 
conteúdo da ROM para o cartão de ex¬ 
pansão de memória, permitindo assim 
a modificação das palavras reservadas 
do Applesoft. Veremos aqui, como 
prometido, uma maneira de fazer o 
mesmo com os comandos de DOS, 
que podem ser alterados sem a neces¬ 
sidade de se ter um /anguage ca rd 
instalado. 

0 mesmo programa pode ser apro¬ 
veitado, com algumas modificações, já 
que o DOS armazena suas palavras- 
chave no mesmo formato que o Apple¬ 
soft. Ou seja, a palavra que correspon¬ 
de a cada comando é guardada como 
uma cadeia contínua de caracteres, 
com o final de uma palavra indicado 
pelo bit 7 ligado em sua última letra. 
A diferença está, é claro, no endereço 
do início da lista e no número de pa¬ 
lavras; como estes dados foram defi¬ 
nidos como variáveis na linha 100 do 
programa TRADUTOR DE PALA¬ 
VRAS, esta é a primeira a ser alte¬ 
rada. A variável P (posição ou endere¬ 
ço inicial), deve ser inicializada para 
43140 ($A884),* e a variável NP (nú¬ 
mero de palavras na lista) para 28. 

A próxima linha a ser modificada 
é a linha 110, apenas para corrigir a 
apresentação do programa. Como não 
vamos necessitar da rotina MOVE do 
monitor para passar o conteúdo da 
ROM para o /anguage card f nem dos 
comandos que controlam esse cartão, 
a linha 240 (e portanto também a 270) 
pode ser removida. A última alteração 
a ser feita está na linha 260, que con¬ 
tém um POKE 49280,0, cuja função era 
de "ativar" o cartão de 16k; este co¬ 
mando deve ser retirado do programa. 
Esta é realmente, a única alteração que 
pode causar problemas se não for feita 
porque pode fazer com que o compu¬ 
tador fique "pendurado", de forma 
que, até a tecla RESET perca seu efei¬ 
to. 
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O programa 


Abaixo aparece novamente a lis¬ 
tagem do programa, indicando as li¬ 
nhas que foram modificadas. Para 
quem perdeu o artigo da revista nú¬ 
mero 7 vamos ver, resumidamente, o 
funcionamento geral do programa. 

As 28 palavras-chave do DOS es¬ 
tão armazenadas em uma lista a partir 
da posição 43140 ($A884), no formato 
descrito acima. As primeiras duas pala¬ 
vras da lista são INIT e LOAD, por¬ 
tanto a tabela mostra o conteúdo dos 
primeiros 8 bytes de memória: 


Posição 

Conteúdo 

ASCII 

43140 ($A884) 

73 ($49) 

1 

43141 

78($4E) 

N 

43142 

73($49) 

I 

43143 

212 ($D4) 

T 

43144 

76 ($40 

L 

43145 

79 ($4F) 

0 

43146 

65($41) 

A 

43147 

196($44) 

D 


O programa coloca no vetor A$, 
nos elementos de índices 1 a 28, a lista 
de palavras-chave retirada da memória 
pelo /oop 120-140. A variável NB man¬ 
tém o número de bytes livres (em re¬ 
lação ao tamanho original da lista), 
para que a lista não tenha o seu tama¬ 
nho aumentado. A seguir o programa 
entra em outro / oop , composto pelas 
linhas 150 a 220, aonde uma palavra é 
pedida; a palavra com seu bit 7 ativado 
é procurada na lista e substituída por 
outra, digitada pelo usuário. Quando 
este responde com uma linha nula, di¬ 
gitando apenas RETURN, o programa 
faz a alteração final, com a aprovação 
do usuário, gravando os novos coman¬ 
dos caractere por caractere (linha 250). 


Fazendo modificações definitivas 


Há basicamente quatro formas de 
se poder usar o DOS alterado sempre 


* Observação: Para as referências a todos os 
endereços de DOS acima de 38400 ($9600) 
foi assumido que o leitor possui um sistema 
com peio menos 48K; para 32K, subtraia 
16384 ($4000) do endereço dado. Todos os 
números hexadecimais sâo indicados por 
um $. 


que o disco for "booteado". A primei¬ 
ra consiste em modificar o que for ne¬ 
cessário na memória e depois inicia- 
lizar um novo disco, no qual será gra¬ 
vada uma cópia deste DOS. 0 único 
problema é que este será um disco 
"escravo", ou seja, cujo DOS não é 
relocável; o disco não poderá ser usa¬ 
do para inicializar um sistema com me¬ 
nos de 48K (assumindo que o leitor 
tenha 48K ou mais em seu computa¬ 
dor) ou não utilizará a mnemória efi¬ 
cientemente, quando "booteado" em 
Apples com maior capacidade de me¬ 
mória que aquele aonde foi iniciali- 
zado. Se o programa MASTER CREA- 
TE for rodado sobre este disco, a ver¬ 
são modificada do DOS será perdida 
e substituída pela original. 

Um segundo método é o de fazer 
as modificações, todas as vezes que o 
disco é "booteado", o que pode ser 
feito pelo programa HELLO ou aquele 
que é executado na fase de boot). 
Se o disco sempre for usado num sis¬ 
tema de 48K, os endereços podem ser 
fixos. No entanto, se o disco deve ser 
transportável, o HELLO deve verificar 
de alguma forma o tamanho da memó¬ 
ria do computador; uma das várias for¬ 
mas de fazer isto é testar o vetor de 
re-entrada no DOS, localizado nas po¬ 
sições 976-978 ($3D0-$3D2). Um PEEK 
(978) devolverá 157 para um sistema 
de 48K, ou 93 para um de 32K. O valor 
dessa função pode ser usado como 
constante no cálculo dos endereços 
internos do DOS, o que torna o pro¬ 
grama seguro de se rodar em compu¬ 
tadores com 24K, 36K, ou qualquer ta¬ 
manho de memória que não é possível 
ter nas versões mais recentes do Ap¬ 
ple. 

Outra forma de tornar definitivas 
as modificações é fazê-las diretamente 
nos três primeiros tracks, reservados 
ao DOS, através de programas que 
permitem a manipulação do disco ao 
nível do setor. É aconselhável fazer 
isso com muito cuidado, porque qual¬ 
quer descuido pode destruir a cópia do 
DOS nesse disco, tornando-se neces¬ 
sária a sua reconstituição, geralmente 
através do MASTER CREATE. Este 
método criará um disco "mestre" com 
o novo DOS, mesmo que esse disco já 
fosse "mestre" antes da modificação. 











































































0 último método usa o programa 
MASTER CREATE para criar um disco 
"mestre" com qualquer modificação. 
Esse programa, ao ser executado, car¬ 
rega uma imagem do DOS original na 
memória do Apple, procedendo depois 
para copiar esta imagem nos discos a 
serem atualizados. 0 programa pode 
ser interrompido logo após a imagem 
ser carregada, permitindo sua modifi¬ 
cação, para depois prosseguir com o 
MASTER CREATE e copiar o DOS 
novo para todos os discos que se de¬ 
sejar. Para fazer isso, siga os seguin¬ 
tes passos: 

— carregue o programa com um 
BLOAD MASTER CREATE; 

— entre no monitor (CALL-151) e alte¬ 
re a posição $80D para $4C, com o 
comando 80D:4C; 

— inicie a execução do programa atra¬ 
vés de um 800G e aguarde até que a 
imagem do DOS seja carregada e o 
programa pare; 

— uma vez de volta ao monitor, use 
seus comandos para fazer as altera¬ 
ções desejadas, lembrando de subtrair 
$7F00 dos endereços de DOS (ou 
$3F00 para 32K), devido ao fato de 
que essa imagem é carregada a partir 
da posição $1200; 

— feitas todas as alterações, entre no¬ 
vamente no MASTER CREATE através 
do comando 82DG; o procedimento a 
partir deste ponto é igual ao seguido 
para atualizar discos com o DOS nor¬ 
mal, e a imagem modificada pode ser 
transferida a quantos discos for neces¬ 
sário. 


Outras modificações possíveis 


Entre as inúmeras modificações 
que podem ser efetuadas no DOS, 
podemos mencionar algumas: 

Mensagens de erro 

Nos últimos números já tínhamos 
falado sobre a possibilidade de alterar¬ 
mos o texto das mensagens de erro 
do DOS. Isto, como também foi dito, 
pode ser feito de maneira semelhante 
ao método usado para alterar os co¬ 
mandos. De fato, podemos usar o 
mesmo método se o tamanho das 
strings que compõem o texto de cada 
mensagem não for alterado. Isso é de¬ 


vido ao fato de que cada mensagem 
tem seu local de início fixo na memória 

— um texto pode até ser diminuído 
em tamanho, desde que seu início não 
seja alterado. Mas, pensando bem, os 
endereços que indicam o início de cada 
mensagem estão numa tabela, e essa 
tabela está, como o resto do DOS, 
em RAM — e portanto pode ser modi¬ 
ficada! 

Na verdade, essa tabela fornece o 
offset, ou endereço relativo, a partir 
do início da lista de caracteres das 
mensagens. O texto das mensagens 
está no mesmo formato que o dos co¬ 
mandos, com o final de uma mensa¬ 
gem indicada por um byte com seu bit 
7 alto. Essa lista está localizada não 
muito longe dos comandos, nas posi¬ 
ções 43377 a 43583 e 43538 ($AA3F 
e $AA4E). Como o primeiro byte da 
tabela é 0, o início da primeira mensa¬ 
gem está em 43377: sendo o segundo 
4 significa que a segunda mensagem 
tem seu início na posição 43377 + 4, 
ou seja, em 43381. 

Outros textos 

Que textos? 0 DOS está cheio dos 
mais variados tipos de texto, com os 
quais o usuário comum muitas vezes 
nunca se depara. Isso, é claro, não 
ocorre com todos os textos; alguns 
dos que podem ser interessantes mu¬ 
dar são: 

— os símbolos que indicam o estado 
docked ou un/ocked) de um arquivo no 
catálogo; os símbolos originais ("*" e 
" ") estão armazenados respectiva¬ 
mente nas posições 44515 ($ADE3) e 
44508 ($ADDC); 

— outros símbolos apresentados no 
catálogo são os que indicam o tipo 
de cada arquivo, que são oito (mas 
atualmente ós quatro últimos não têm 
significado definido, o que não impede 
de serem usados por alguns); o string 
"TIABSRAB" está armazenado da po¬ 
sição 45991 a posição 45998 ($B3A7 

— $B3AE); 

— ainda nos textos produzidos duran¬ 
te um CATALOG, temos a mensagem 
de volume do disco ("DISK VOLU¬ 
ME"), que ocupa os 12 bytes a partir 
de 45999 ($B3AF) armazenado em or¬ 
dem inversa; 

— outra área de textos que pode ser 


modificada é a que armazena as pala¬ 
vras-chave que antecedem os parâme¬ 
tros dos comandos de DOS; a string 
"VDSLRBACIO" está gravada com os 
MSBs no estado alto a partir de 43329 
($A941); 

— o caractere de comando do DOS 
(ctrl-D) está armazenado na posição 
43698 ($AAB2); este pode ser mudado 
para qualquer outro, inclusive caracte¬ 
res visíveis. 

Alterações de software 

Ao contrário do que foi feito até 
agora, modificando apenas textos im¬ 
pressos durante a execução de algu¬ 
mas rotinas do DOS, as alterações 
descritas abaixo mudam a própria exe¬ 
cução dessas rotinas: 

— o RUN que é executado na última 
fase de boot pode ser mudado para 
BRUN ou até EXEC, a fim de poder¬ 
mos usar como HELLO um programa 
em linguagem de máquina ou um ar¬ 
quivo-texto; para tanto, basta substi¬ 
tuir o 6 na posição 40514 ($9E42) por 
um 52 ($34) para BRUN ou 20 ($14) 
para EXEC; 

— a pausa durante a apresentação de 
um catálogo muito longo pode ser re¬ 
tirada, se desejado, colocando-se um 
RTS (96 ou $60) na posição 44596 
($AE34); 

— os nomes de arquivos deletados 
podem ser apresentados durante um 
catálogo (desde que não tenha entra¬ 
do outro nome sobre esse) colocando- 
se NOPs (234 ou $EA) nas posições 
44505 e 44506 ($ADD9 e $ADDA); 

— inversamente, se você colocar 
NOPs nas posições 44599 e 44600 
($AE37 e $AE38), a rotina de apresen¬ 
tação do catálogo colocará uma pausa 
depois de cada nome de arquivo; 

— mais uma com a instrução de ope¬ 
ração nula: se forem colocados três 
NOPs a partir da posição 49107 
($BFD3) o DOS não forçará o recar- 
regamento do /anguage card se já ha¬ 
via uma linguagem presente no cartão 
(apenas o DOS 3.3 faz isso — as ver¬ 
sões anteriores não precisam ser modi¬ 
ficadas); 

— se você não quer mensagens de 
erro (de DOS, é claro), coloque NOPs 
nas posições 42768 a 42770 ($A710 a 
$A712). 
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Observações 


Há infinitas alterações possíveis 
de serem feitas no DOS — estas foram 
apenas algumas. O objetivo deste arti¬ 
go foi apenas o de introduzir os lei¬ 
tores interessados a alguns métodos 
gerais de modificação do DOS, abrin¬ 
do caminho para aqueles que realmen¬ 
te queiram aprofundar-se no assunto. 

Não devemos esquecer de que es¬ 
tamos mexendo com um programa 
extremamente complexo que ocupa 
aproximadamente 10K em linguagem 
de máquina. Portanto, sempre deve¬ 
mos ter extremo cuidado ao fazer ex¬ 
periências, particularmente quando se 
está trabalhando a partir do monitor. 
Erros do tipo: ter a intenção de digitar 
A56EG (que aciona diretamente o co¬ 
mando de catálogo) e sem querer es¬ 
crever A563G (que entra na rotina de 
inicialização de discos) são muito mais 
freqüentes do que se possa imaginar. 

Como já foi dito nos artigos an¬ 
teriores, todo e qualquer comentário 
ou crítica dos leitores será de grande 
valor para a nossa equipe. 


A" REH ti Tradutor de Comandos II 


31983 Por Dentro do Apple 


=>100 P = 43140:NP = 28 

=>110 DIM At(NP):NB = 0:J = P - 1: 

HOME : PRINT TABí 4);"TRAD 
ÜTQR DE PALAVRAS RESERVADAS" 

: PRINT : PRINT : PRINT "ASU 
ARDE..." 

120 FOR I = 1 TO NP:At(I) = "" 

130 J = J + l:At(I) = A$(I) + CHR* 
í PEEK ÍJ)): IF PEEK (J) < 

128 THEN 130 

140 NEXT I 

150 PRINT : PRINT : PRINT "SOBRA 
M ”;NB;" BYTES,": PRINT "DIB 
ITE 0 COMANDO A ALTERAR 
PRINT " <RETURN> PARA TERMI 
NAR:": INPUT "";Aí: IF Aí = 

"" THEN 230 

160 IF LEN íAí> = 1 THEN At = CHRÍ 
1 ASC (At) + 128): 60T0 180 

170 At = LEFTt (At, LEN (At) - l 
) + CHRt ( ASC ( RIGHTt (At 
,1)) + 128) 

180 FOR I = 1 TO NP: IF At(I) = 

Aí THEN 200 


190 NEXT I: PRINT : PRINT "ESSA\ 

PALAVRA NAO EXISTE"; CHRt (7 
): GOTO 150 

200 NL = LEN (At(D) + NB: PRINT 
: PRINT "SUBSTITUI’-LO POR ( 

ATE ? ";NL;" CARACTERES):’: INPUT 
"";BÍ:L = LEN (Bt): IF L > 

NL OR L = 0 THEN PRINT CHRt 
(7!;: GOTO 200 

210 NB = NB + LEN (At(I)) - L: IF 
L = 1 THEN At íI) = CHRt ( ASC 
(Bt! + 128): GOTO 150 

220 At(I) = LEFTt (Bí,L - 1) + CHRt 
( ASC ( RIGHTÍ ÍBt,D) + 128 
!: GOTO 150 

230 INPUT "POSSO FAZER A ALTERAC 
AO FINAL (S/N)? ";At: IF LEFTt 
(At,1) = "N" THEN HOME : PRINT 
"NENHUMA ALTERACAO FOI FEITA 
- TERMINADO.": END 

=>240 removida 

250 PRINT : PRINT "AGUARDE...": FOR 
I = 1 TO NP: FOR J = 1 TO LEN 
(At (D): POKE P, ASC ! MIDt 
(At(I),J,13):P = P + 1: NEXT 
J,I 

=>260 HOME : PRINT "FIM DA ALTERAC 
AO.’: END 

=>270 removida ) 


NRQ CARREGUE 


ESTES PROGRAMAS! 


ELES ESTRO RO SEU DISPOR NO UL¬ 
TIMO SUCESSO DO «Bi.-O EXTENDED 
BASIC MICROPOUER.UEUA R LISTR: 
RÊNUMERRDQR.. NOME . HI - 
SPEED.. MRPR DE MEMÓRIA 
GERRDGR DE REM.. ESTRU¬ 
TURA DE LINHA.. SOMA SIN- 
TRTXCA.. RAM TOP..DELETE 
EM BLOCO.. E a? ROTINAS 
DE .UIDEO CTXG-SCREEN). 

SaS CARREÇAR ..ÜÜÜ ALTERAR O MICRO 
asa OCUPAR A RAM.E LIGAR E USAR. 


E ,O TIGRE CONTINUA COM OS OU¬ 
TROS SUCESSGS: TIG—LORDER..TIG- 
COMP , TIG-SCREEN E MUITAS NO- 
UIDADES EM JOGQS%ESCREUR—NQS» 

i mm»mmmmm ww -w ^ra n tit n rinrT n rm- mma mmmi 

RTENDEMOS SOMENTE POR CARTA. 


TIGRE 

COMERCIO DE EOUIPAMENTOS 
PARR COMPUTADORES LTDA. 

RUA CORREIA OPLUAO.. 324. 
-8154? - SAO PAULO - SP 
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O TIGRE QUER REUENDEDORES PARA 
TODO O BRASIL.ENTRE EM CONTRTO. 


















i wo-im en 


O two-liner que nos foi enviado pe¬ 
lo estudante Jacyr V. de Quadros Jr. 
faz uma apresentação muito interes¬ 
sante de formas geométricas aleatórias 
na tela. De acordo com ele, como as 
cores de fundo e do desenho são esco¬ 


lhidas ao acaso, pode acontecer de 
uma coincidir com a outra; neste caso, 
o Jacyr aconselha a pressionar ctrl-C, 
que fará com que o programa volte 
imediatamente ao seu início evitando 
uma longa espera com a tela vazia. O 


S | I I I 1 I I I 1 1 1 

programa só pára com RESET. 

Vale a pena digitar e rodar o pro¬ 
grama CURVAS. Uma das possíveis 
saídas está reproduzida no dump abai¬ 
xo. Continuem mandando suas contri¬ 
buições para a nossa seção. 


0 REH ttt CURVAS Ui 

Jacyr V. de Quadros Jr. 

Barueri - SP 

5 FOR N = 0 TO 1000: NEXT : H6R 
:6 = RND (1) t 360: HOME : VTAB 
22: PRINT ‘CURVA = ";0: HC0L0R= 
INT í RND (1) *2) *3: HPLOT 
0,0: CALL 62454: HC010R= INT 
( RND (1) » 6): HPLOT 138,79 
:T = @:PI = ATN (1) » 4: ONERR 
GOTO 5 

10 K = K + Q:T = T + 1:X = 138 + 

T t SIN (K / 180 t PI):Y = 

95 - T t COS <K / 180 » PI) 

: HPLOT TO X,Y:P = (Q < 40 OR 
Q > 320): HPLOT TO X + Í138 
- X! t P,Y + (95 - Y) t P: HPLOT 
TO X,Y: 60T0 10 



PROTEJA SEU 
MICRO 









& 




CONTRA: 

- PICOS DE VOLTAGEM 

- TRANSIENTES DE TENSÃO 

- RUÍDO ELÉTRICO 

- INTERFERÊNCIA: 

RÁDIO FREOÜÊNCIA (RF) 

POTÊNCIA: ATINGE ATÉ 1,5 KVA 
TENSÃO: 220V ou 110V 


ZENTRANX 

ELETRÔNICA, INDÚSTRIA E COMÉRCIO LTDA. 

NO BREAK ESTABILIZADORES DE TENSÃO 

Av. Vitor Manzini, 410/414 
CEP 04745 — Santo Amaro — S. Paulo 
Tels.: (011) 522-2159 e 548-0651 
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LANÇAMENTO 


Terminal com 
teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 
funções gravadas na 
própria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 
externamente. 

Saidas: Expansão memória/impressora 
Fonte externa ou interna 
Rede 

Gravação EAR/MIC 
Chave Liga/Desliga 
Chave 110/220 Vac 
Joystick 



INTER-COL IND. E COM. 

Depto. Vendas - Av. Alda. 805 - 
fone: 456.3011 


LTDA. 

Diadema (Centro) 


Os pedidos registrados no mês de 
lançamento de Cr$ 99500,00. 

Linha de Fabrícaçáo: 

Chaves comutadoras 

Teclas e teclados semi profissionais 

Teclas e teclados profissionais 


abril . terão preço de 





























































CARO leitor: 


complete sua coleção 



Você nunca terá em suas mà05“outra"colecão 
de eletrônica tão simples e completa. 


DIVIRTA-SE COM A 


G3JSM 


ADQUIRA JA ESTE 

INCRÍVEL SUPORTE 
PRÁTICO PARA O 
SEU APRENDIZADO 




-x 

—-TÍTiS «p*eaçó*«r ° 

I «Oeauladores de voltai™ 
*?^odeetetrôn,ca? 


■ Metrônomo 


hobby; 

monte o 

chuvalarm 
■ construa o 

BíTESTE* 

sasa-»- 


8£-A-BAda 

MMSÍMga 

A REVISTA-CURSO QUE ENSI¬ 
NA A ELETRÔNICA,EM LIÇÕES 
SIMPLES E OBJETIVAS,COMO 
VOCÊ PEDIU ! EM TODAS AS 
BANCAS! RESERVE,DESDE JÁ, 
O SEU PRÓXIMO EXEMPLAR! 




G Bártob Títtipaldi 

Rua Santa Virgínia, 403 — Tatuapé — 

'CEP 03084 - São Paulo - SP 


HfOltlIflTICII 


ELETRÔNICA DIGITAL— 


Gostaria de receber através do Reembolso 
Pnstal. ao preco da última edição em bancas. 

as seguintes publicações: | numero($) 

BE-A-BA DA ELETRÔNICA 


DIVIRTA-SE COM A 

ELETRÔNICA. 


Informática 



Nome:. 


Rua- 


Bairro: .Cep:. 

Cidade:.Estado:. 


\ Revista ( 

' eficiente > 
para v. 
seu ( 
aprendizado 


publicidade, 
telefone para 


217-2257 

217-1890 




































































TK 2000: 

um compatível com o Apple 
ou uma nova máquina? 


Álvaro A. L Domingues 


Quando o TK 2000 saiu, todos 
que o viram tentaram classificá-lo em 
uma das famílias já existentes: a do TK 
83 (TK-82C, TK 85, CP 200, Ringo, 
etc), a do Apple (Maxxi, Spectrum), a 
do TRS 80 (D 8000, CP 500, Jr da 


Fita 


O TK-2000 lê qualquer fita no 
formato Applesoft. Grava nos forma¬ 
tos Applesoft e TK-2000. As fitas gra¬ 
vadas no formato Applesoft podem 
ser lidas por um Apple ou compatí¬ 
vel. As gravadas no formato TK-2000 
só podem ser lidas por um TK-2000. 
Observação: o fato do TK-2000 poder 
ler um programa do Apple e vice- 
versa, não significa que ele poderá 
ser executado imediatamente, sem 
modificações. 


Programas em BASIC 


Alguns programas em BASIC 
que rodam no Apple podem rodar 
no TK-2000 sem nenhuma modifica¬ 
ção. Outros necessitam algum co¬ 
nhecimento do mapeamento de me¬ 
mória do TK-2000 e outros necessi¬ 
tam de traduções de instruções que 
constam no Apple e não no TK-2000. 
Um cuidado especial deve ser toma¬ 
do em relação às linhas que contém 
sPEEKePOKE. 


Sysdata, etc.) ou outras (Atari, Sinclair 
Spectrum, etc.). 

Isto parece muito natural, uma 
vez que, sempre que é lançado um 
produto nacional na área de informá¬ 
tica, ele pode ser incluído numa das 


Programas em Linguagem 
de máquina 


Alguns programas rodam direta¬ 
mente, outros necessitam de modifi¬ 
cações pequenas, mas outros neces¬ 
sitam de profundas modificações. 
Seu usuário deverá ter um bom co¬ 
nhecimento da máquina, a nível de 
hardware, para poder fazer todas^as 
modificações necessárias. 


Disquete 


O TK-2000 usa um sistema ope¬ 
racional, o TKDOS 3.3, muito seme¬ 
lhante ao DOS 3.3 do Apple. Os co¬ 
mandos são idênticos, permitindo ao 
usuário do TK-2000 manipular pro¬ 
gramas e arquivos em disquetes do 
Apple. O TK-2000 pode ler e gravar 
dados e programas num disquete do 
Apple e vice-versa. 

Observação: A execução de progra¬ 
mas do Apple no TK e vice-versa 
não está garantida sem adaptações, 
apesar de serem lidos a partir do dis¬ 
quete do outro computador. 


famílias já existentes. Entretanto, isto 
não ocorre com o TK-2000. 


Uma nova máquina 


O hábito de classificar os compu¬ 
tadores nacionais em famílias faz com 
que, — dizendo, por exemplo, que 
um produto é compatível com o Apple 
— se crie uma expectativa de que o 
produto seja capaz de emular o Apple 
tanto em hardware quanto em soft¬ 
ware, através de modificações muito 
pequenas, e faça tudo o que este com¬ 
putador faz. 

É importante ressaltar que o TK- 
2000, uma nova máquina no mercado, 
não pode e não deve ser incluída em 
nenhuma das famílias tradicionais dos 
computadores. Isto é devido à filosofia 
de trabalho da Microdigital, que, vi¬ 
sando uma melhor relação desempe¬ 
nho/preço, criou um produto com ca¬ 
racterísticas próprias, que dão ao TK- 
2000 um melhor desempenho para as 
necessidades dos usuários nacionais. 

Entretanto, a Microdigital optou 
também por dotá-lo com caracterís¬ 
ticas do Apple, que o tornam parcial¬ 
mente compatível com esta máquina. 


Semelhanças e diferenças 


Todo usuário do Apple sabe que, 
após comprar a CPU (lógica, eletrônica 
e teclado), deve fazer alguns investi¬ 
mentos para torná-lo operacional. Ini¬ 
cialmente deve-se providenciar o mo¬ 
nitor de vídeo ou então uma placa PAL 
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QUÃO COMPATÍVEL? 



























que transforma o sinal de vídeo de 
computador em um sinal de televisão 
colorida (dentro do nosso padrão de 
transmissão), que pode ser aplicado 
diretamente à entrada da TV. 

Se o usuário estiver interessado 
em armazenar seus dados e progra¬ 
mas, deverá optar ou por fita, com¬ 
prando um gravador de boa qualidade, 
ou pelo disquete, melhor, mas que 
implica num dispêndio extra de capital, 
talvez até superando o preço da pró¬ 
pria CPU! 


Uma filosofia de trabalho 


Desde o lançamento de seus pri¬ 
meiros produtos, a Microdigital preo¬ 
cupou-se em apresentar produtos com 
as seguintes características: 

a) preço acessível 

b) boa qualidade 

c) o usuário deveria dispender um 
mínimo para tornar o computador ope¬ 
racional. 

Assim, a linha TK tem apresen¬ 
tado computadores que, para torna¬ 
rem-se úteis, precisam apenas de um 
gravador cassete e de um televisor 
preto e branco comuns. 

Isso também ocorre com o TK- 
2000. Diferentemente do Apple e seus 
compatíveis, o TK-2000 incorpora as 
interfaces necessárias para torná-lo 
útil: 

a) interface para TV colorida, no 
sistema PAL. 

b) Controle para dois gravadores 
cassetes. 

c) interface para impressora. 

Além disso, o TK-2000 apresenta 

um canal de som que, ao contrário 
do Apple, não está localizado no gabi¬ 
nete do computar, mas é transmitido, 
via cabo de RF para a TV, junto com 
o sinal de vídeo. Isso permite que seu 
usuário controle o volume do som emi¬ 
tido pelo computador, obtendo uma 
qualidade melhor. 

Outra coisa que o diferencia do 
Apple é sua memória. O TK-2000 apre¬ 
senta uma memória RAM de 64 kB, 
sendo 48 k acessados diretamente pelo 
BASIC e o restante acessados por soft¬ 
ware especial. 


Recursos adicionais 


O TK-2000 apresenta uma série de 
recursos que permitem ao seu usuário 
uma grande flexibilidade de progra¬ 
mação. Entre estes recursos, encon¬ 
tramos incorporados à sua ROM, dois 
programas fundamentais para progra¬ 
mação em linguagem de máquina: o 
Monitor Dissassembler e um Mini-As- 
sembler. 
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O Monitor-Dissassembler permite 
ao usuário o TK-2000 decodificar um 
programa em linguagem de máquina, 
obtendo seus mneumônicos (códigos- 
lembretes da linguagem Assembly). Já 
o miniassembler é um programa que 
faz a operação inversa: a partir dos 
mneumônicos da linguagem Assembly, 
cria códigos em linguagem de má¬ 
quina. 

Além disso, o TK-2000 apresenta 
50 símbolos gráficos especiais, coman¬ 
dos em uma tela única (através do 
modo Control-shift), duas páginas de 
vídeo, três formas de apresentação de 
imagem (texto, baixa resolução e alta 
resolução), seis cores, etc. . 

Merece especial atenção o co¬ 
mando Sound, que permite ao usuário, 
por meio do BASIC, comandar o som 
de seu computador, ao contrário do 
Apple, que necessita de comandos em 
linguagem de máquina bastante difí¬ 
ceis de serem executados pelo usuário 
comum de microcomputadores. 


O Software para o TK-2000 


A maioria dos programas em BA¬ 
SIC para o Apple, se forem digitados 
no TK-2000, podem ser rodados sem 
alterações. Podemos então dizer que 
o TK-2000 é compatível com o Apple¬ 
soft, podendo, inclusive, ler fitas gra¬ 
vadas por um Apple ou compatível. 

A leitura e gravação das fitas é 
feita em dois formatos diferentes: Ap¬ 
plesoft e TK-2000. 

No formato Applesoft, as fitas são 
gravadas com a mesma formatação do 
Apple, podendo ser lidas por qualquer 
computador desta família. 

No formato TK-2000, as fitas só 
poderão ser lidas por um TK-2000. A 
razão para este formato ter sido ado¬ 
tado pela Microdigital foi sua facili¬ 
dade de gravação e reprodução, permi¬ 
tindo inclusive ao usuário monitorar a 
entrada de programas no computador. 

Como o formato Applesoft é com¬ 
patível com o Apple, os programas 
desenvolvidos em BASIC do Apple po¬ 
dem ser quase todos rodados no TK- 
2000. Além disso, a Multisoft está co¬ 
locando à venda dois aplicativos exclu¬ 
sivos para o TK-2000: o cadastro de 
clientes e o controle de qualidade. 

Na área de jogos já estão disponí¬ 
veis quatro jogos coloridos, com alta 
qualidade visual e efeitos sonoros. 

Além disso, está previsto para bre¬ 
ve o lançamento de uma série de pro¬ 
gramas, uma linha de jogos e progra¬ 
mas comerciais, com uma excelente 
qualidade gráfica, uma grande varie¬ 
dade de cores e alta resolução. O 



Horários: diurno, noturno e 
sábados 


Inscrições abertas 

Revendedor e assistência técnica 

PROLOGICA 

■■ microcomputadores 


SYS DEZ 

comércio e manutenção de 
computadores ltda. 

Rua das Rosas, 732- Mirandópolis 
CEP. 04048- Tal. 579-8867 



LIVRARIA 

POLIEDRO 

ATUALIZE SUA BIBLIOTECA 


• Introdução Ilustrada à Computa¬ 
ção (com muito humorI) L Go- 

nick . 2.500 

• Grafos e Algoritmos Computa¬ 
cionais, Szwarcfiter. 7.400 

• Documentação de Software, Lo- 

max . 3.200 

• Programaçflo com Basic, Gott- 

fried. 6.600 

• Programação Basic, Magri. 6.500 

• Unguagem de Móquina para o 

TK. vol. 1 — Rossini. 8.000 

• Basic para Engenheiros e Cien¬ 
tistas, Boratto. 4.300 

• Unguagem Basic, Mirshawka ... 8.500 

• Basic — Aplicações comerciais 

— Borges. 5.900 

• A Construção de um Compila¬ 
dor, Setzer. 6.800 

• Brincando com o Computador, 

Moreira. 3.600 



Brinde: para compras superiores a 
Cr$ 50.000 1 exemplar do livro — 
CÓDIGO DE MÁQUINA PARA TK 
E CP 200 — Delio Santos no valor 
de 9.000. 


LIVRARIA POLIEDRO LTDA. 

Rua Aurora, 704 (Metrô República) 
01209 - SSo Paulo, SP 




























RESPOSTA DO 
QUEBRA-CABEÇA 


CAPITÃO 

MACHISTA 



Inicialmente, parabenizamos a 
Celso Bressau por ter obtido, tal qual 
o Gamai Saty, uma solução parcial 
do Quebra-Cabeça "LGM ou Mensa¬ 
gem Vega?". Infelizmente ela nos che¬ 
gou quando já havíamos "fechado" a 
sétima edição da Microhobby. Quanto 
ò interpretação da mensagem, conti¬ 
nuamos aguardando colaborações. 

Do Quebra-Cabeça da sexta edi¬ 
ção, recebemos a tempo para publi¬ 
carmos nesta edição quatro soluções 
que forneceram resposta correta <989), 
das quais três foram escolhidas: a de 
Milton de Oliveira, de ZUda G. Plassa 
e a de Roberto Marques Bekman. Isso 
porque os programas são muito seme¬ 
lhantes (ocupam cerca de 500 bytes 
e rodam em aproximadamente um mi¬ 
nuto). 0 quarto programa, de F/ávio 
A. R. Steffen, apesar de correto, de¬ 
mora mais de três horas para apresen¬ 
tar a solução certa. 


Sikcíoih Wace 


O LUGAR 
COMPATÍVEL 
COM VOCÊ 
E SEU MICRO 


\ 


MICROS 
ACESSÓRIOS 
SOFTWARE 
LIVROS 
REVISTAS 


Sinclair Place do Brasil 
Com. de Microcomputadores Ltda. 
Rua Dias da Cruz, 215 - Sala 804 
Ed. Meyer Golden Center 
CEP 20.720 - Meyer - Rio de Janeiro - RJ. 
Tel.: (021) 594-2699 


Prezados Senhores, 


Sirvo-me da presente para saudar 
os amigos-da Microhobby e também 
para apresentar a solução do quebra- 
cabeça: O Capitão Machista. 

A resposta que encontrei foi 989 
e o programa, rodando num TK 85 
(48 k), segue anexo. 


Milton de Oliveira 


1 REM O CAPITAO MRCHISTR 

2 REM ROBERTO M. BEKMRN 
5 FR5T 

10 LET P=0 
20 LET V = 1 

30 LET R$ =”HMHMHMHMHMHM” 

40 LET P=P +1 
50 LET Y=Y*P 
60 LET XrY/LEN R$ 

70 LET Y =Y —LEN R$*INT X 
80 IF NOT Y THEN LET Y =LEN A* 
90 IF R % C Y ) = '* M ’* THEN GOTO 20 
100 LET R$=R$( TO Y-l)+fl$(Y+l T 
O ) 

110 IF LEN fl$>6 THEN GOTO 50 
120 PRINT **0 CRPITRO ESCOLHEU O 
NUMERO **; P + l 


Prezados amigos da Microhobby, 


Envio a resolução do quebra-ca¬ 
beça da revista número 6, "0 Capitão 
Machista". 

Linhas importantes para a inter¬ 
pretação do programa: 

— linha 20: a circunferência aber¬ 
ta, começando com um homem; 

— linha 50: determina o número 
que o capitão contará, como se não 
houvesse dado nenhuma volta na cir¬ 
cunferência; 

— linha 70: ordena novamente a 
circunferência aberta. 

0 número que acharão, após ro¬ 
dar o programa abaixo é 989. 


ZUda G. Plassa 


1 REM O CRPITRO MRCHISTR 
3 REM ZILDR G. PLRSSR 
5 FRST 
10 LET X=0 

20 LET R$="HtthMHMHMHMHM“ 

30 LET X=X + 1 
4-0 FOR N = 1 TO 6 

50 LET KsX-INT IXs (13-N) ) *113- 
N) 

55 IF K =0 THEN LET K = 13-N 
©0 IF A$CK)="H” THEN GOTO 20 
70 LET R*=CR$(K+1 TO LEN A$)+R 
1 TO K — 1) AND K< >13—N) «- (R*(l T 
O LEN A$-l) AND K*13-N) 

60 NEXT N 
85 SLOU 

90 PRINT RT 10,4.; “O MENOR NUME 
RO E : *’ ; X 


Prezados Senhores, 

Como o Capitão não era um pas¬ 
sageiro, além disso se ele fosse lan¬ 
çado ao mar ninguém saberia coman¬ 
dar o barco. A disposição dos passa¬ 
geiros, que acho a mais lógica é a 
seguinte: 

M H M 
H H 

M C M 

H H 

M M 
H 

0 capitão no centro ficaria com a 
tarefa de repetir seis vezes um número 
por ele escolhido e atirar n'água aquele 
em que o número caísse. 

Espertamente o capitão fez um 
curto programa em seu TK, ocupando 
pouco mais de 500 bytes de RAM, 
indicando o menor número que deveria 
escolher para nenhuma mulher ser lan¬ 
çada aos tubarões, pois o capitão ja¬ 
mais se rebaixaria a tal ponto. Devido 
aos insistentes pedidos de um enge¬ 
nheiro a contagem começaria por ele. 

Logo a seguir está listado o meu 
programa, onde a variável AS, acom¬ 
panhada de devida programação repre¬ 
senta a circunferência formada pelos 
passageiros que a cada rodada torna¬ 
va-se menor. 

Rodando o programa, você verifi¬ 
cará que o capitão escolheu o número 

989! 


Roberto Marques Bekman 


r 




1 REM O CRPITRO MRCHISTR 

2 REM MILTON DE OLIUEIRR 
5 FRST 

10 LET fi$s ,, HMHMHMHMHMHM" 

20 LET L=0 
30 LET N =3 
4.0 LET U=N 

50 IF U < =LEN A % THEN GOTO 30 
60 LET UsN-LEN fl$*INT (N/LEN A 

f ) 

70 IF U=0 THEN LET U=LEN A* 

80 IF A$(U)=”H” THEN GOTO 100 
90 IF R$(U)=”M” THEN GOTO 140 
100 LET R$=R$(U + 1 TO ) -FR* í TO V 


110 LET L=L + 1 

120 IF Ls6 THEN GOTO 180 

130 GOTO 40 

140 LET L =0 

150 LET fl$s" HMHMHMHMHMMM *' 

160 LET N = N«-2 
170 GOTO 40 

130 PRINT RT 8,0;“O NUMERO ESCO 
LHIDO PELO CRPITRO”;RT 10,0,"FOI 

: ” ; N 

190 STOP 

200 SAUE ”0 CRPITRO MACHISTA” 
210 GOTO 5 


V 


J 
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Quebra-Cabeça 

A 

PEREGRINAÇÃO DO 
DALAI LAMA 


TRANS- HIMALAIA 

(TIBET) 



". . . Tolen enviou um mensageiro à 
Ajshrangivad para nos chamar à Seli- 
puk. Estamos partindo pára Nanda De¬ 
vi e de lá, seguiremos para Barkha — 
onde estamos sendo aguardados. 

Eu e Ramarujan já começamos a 
sentir nosso sangue circular com difi¬ 
culdade. Nós já percorremos esse ca¬ 
minho muitas vezes no passado, mas 
nunca o frio e a neve foram tão in¬ 
tensos! Há mais de um dia neva inin¬ 
terruptamente e a temperatura tem 
permanecido sempre abaixo de 20°C. 

Apesar de tudo, cremos que com 
mais um dia de viagem, chegaremos 
à Barkha. 


Chegamos pela manhã. Somos 
hóspedes de Shwan Bhugahav, fiel 
amigo de Tolen. Amanhã seguiremos 
para Selipuk antes do alvorecer. Desta 
vez, iremos de avião. 

Tolen estará à nossa espera no 
campo de pouso, onde deveremos che¬ 
gar pór volta das nove horas. 

Até agora tudo tem nos parecido 
muito estranho. Desde a mensagem 
que eu e Ramarujan recebemos até a 
camuflagem do avião — que é branco. 
Tolen quis que viéssemos clandestina¬ 
mente para a China e, além disso, pe¬ 
diu-nos para virmos para Barkha a pé, 
através do Himalaia. Já tentamos obter 
mais informações com Shwan e pare¬ 
ce-nos que ele sabe menos do que nós. 


Renato da Silva Oliveira 

Chegamos a Selipuk. Tolen le¬ 
vou-nos imediatamente para um mos- 
teiro. Agora sabemos o motivo de nos¬ 
sa vinda. 

Tolen Tonken foi, durante muitos 
anos, lama fiel ao Datei. Quando, em 
1959, o Datei Lama teve que deixar o 
Tibet, refugiando-se na India, o Pan - 
chen Lama, mesmo a contragosto, as¬ 
sumiu o controle do Lamaísmo na Chi¬ 
na. Nesse ano, Tolen isolou-se em 
Selipuk e acabou deixando de vez a 
vida nos mosteiros. 0 Datei Lama , 
entretanto, continua a ter sua fideli¬ 
dade e a de muitos lamas que perma¬ 
neceram no Tibet. 

A poucas semanas, o Datei retor¬ 
nou da India do mesmo modo que nós, 
e encontra-se aqui em Selipuk. 
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Por algum misterioso motivo que 
ele insiste em não revelar, disse-nos 
que deverá realizar uma peregrinação 
através de Selipuk, Barkha, Gartok, 
Rajen, Menze, Thok Jalung e Thok 
Daurakpa. 

Tolen chamou-nos para participar¬ 
mos da peregrinação com eles, pois 
conhecemos bem a região e devere¬ 
mos levar o Datai Lama de volta à 
India quando a terminarmos. 

Uma de minhas primeiras preocu¬ 
pações foi encontrar o menor percurso 
possível, através dos sete vilarejos. Co¬ 
mentei isso com os outros e Tolen 
trouxe-nos uma tabela, feita por ele, 
onde encontravam-se as distâncias en¬ 
tre várias localidades da região. Antes 
mesmo de olharmos a tabela, o Dalai 
disse-nos qual a seqüência dos locais 
que deveríamos seguir. Eu, Tolen e Ra- 
marujan nos surpreendemos. 

Combinamos partir de Selipuk na 
manhã seguinte.- 

À noite, eu não pude resistir a 
curiosidade de saber se o caminho es¬ 
colhido pelo Datai Lama era realmente 
o mais curto, dentre os 720 possíveis. 
Ramarujan e Tolen também queriam 
saber se seguiríamos pelo menor cami¬ 
nho. Fizemos, então, um rápido pro¬ 
grama para meu TK-83 ocupando me¬ 


nos de 2K Bytes de RAM. A partir 
das distâncias entre cada par das sete 
localidades, o programa forneceu-nos 
as duas seqüências mais curtas. Como 
Tolen já previra e eu e Ramarujan duvi¬ 
dávamos, o Datai Lama estava certo! 

Amanhã pela manhã, partiremos 
de Selipuk, e deveremos retornar den¬ 
tro de pouco menos de um mês. 

O percurso escolhido pelo Datai 
entre os dois mais curtos tem, ainda, 
a vantagem de que o retorno para Seli¬ 
puk terá menos acidentes geográficos 
que o início da viagem. Isso parece- 
me importante, uma vez que estare¬ 
mos fisicamente mais desgasta¬ 
dos . . ." 


Estes textos foram extraídos 
do diário de Nabor Rosenthal. Ele en¬ 
viou-nos cópias de algumas páginas 
para não ter que nos escrever sobre 
tudo o que tem lhe acontecido. Como 
de hábito, inspiramo-nos nestes acon¬ 
tecimentos para propor o quebra-ca¬ 
beça desta edição. 

Ele se divide em duas partes: 

1?) Descobrir, com a ajuda do TK, 
quais os dois caminhos mais curtos 
a serem seguidos na peregrinação. 

2?) Achar, entre os dois, aquele 
que foi escolhido pelo Datai. 

Na abertura de nosso artigo você 
poderá ver o mapa da região. As dis¬ 
tâncias entre cada região estão mos¬ 
tradas na tabela 1. 




SELIPUK 

BARKHA 

MENZE 

RAJEN 

GARTOK 

THOK 

THOK 







JALUNG 

DAURAKPA 

SELIPUK 

__ 

136 

166 

120 

210 

120 

218 

BARKHA 

136 

— 

60 

128 

128 

136 

363 

MENZE 

166 

60 

— 

180 

75 

128 

390 

RAJEN 

120 

128 

180 

— 

240 

210 

285 

GARTOK 

210 

128 

75 

240 

— 

120 

420 

THOK 

JALUNG 

120 

136 

128 

210 

120 


300 

THOK 

DAURAKPA 

218 

353 

390 

285 

420 

300 




Tabela 1: distâncias em Km. 
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CURSO DE I 


A STOP ^^IPRINT 

, ■ O H I 




aula 9 

Continuando as STR/NGs: 


Analogamente às funções CODE 
e CHR$, VAL e STR$ são funções 
inversas sendo que a primeira fornece 
uma variável numérica e a segunda 
uma STRING. (Repare que a notação 
utilizada coloca um S no final do nome 
das das funções que fornecem uma 
STRING). Estas funções são bastante 
úteis e permitem interligar os "univer¬ 
sos" das variáveis numéricas e das 
STRINGs pois a primeira (VAL) quan¬ 
do possível, transforma uma STRING 
no seu valor numérico e a segunda 
(STRS) transforma um valor numérico 
ou uma expressão matemática numa 
STRING. Experimente o seguinte pro¬ 
grama que esperamos ser suficiente 
para esclarecer o efeito de VAL (tecla 
J): 


2 * LtT e*«-2+s-7" 

30 PRINT "Bí«";Bí 
4-0 PRINT Pí (2 TO 4.) 
50 PRINT URL Bí 
60 LET L$ = ''23" 

65 LET V«URL Lí 
70 LET 

60 LET NÍ=”2-47” 

90 PRINT **LÍ— ** j Lí 
95 PRINT **Yj= **; Y 
103 PRINT "MÍ»";MÍ 
HO PRINT "NÍ*";NÍ 
120 PRINT LÍ+MÍ 
130 PRINT Y+VPL M$ 
14.0 PRINT M$+N$ 

150 PRINT URL (M$+N$) 
160 LET X =5 
170 LET 

180 PRINT **X = **; X 
190 PRINT = 

200 PRINT URL Rí 
210 LET Rí = “5#RNO" 
220 PRINT URL Rí 


Estude cuidadosamente todas as 
saídas do programa. Repare novamen¬ 
te na diferença de "espaços" de me¬ 
mória ocupados; por exemplo, na linha 
60 temos LS = "23" ocupando dois 
espaços um para cada caractere e na 
linha 65 temos Y = VAL LS, ou seja, 
23 também mas agora ocupando ape¬ 
nas um espaço de memória. Em outras 
palavras, LS é uma matriz de duas posi¬ 
ções enquanto que Y é uma variável 
simples, apesar de ambas produzirem 
o mesmo efeito na tela. Preste atenção 
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agora na linha 210; se você digitou a 
tecla T com o cursor em B tudo bem 
e a linha 220 será executada; no en¬ 
tanto, se você digitou as letras R, N e 
D separadamente o programa acusará 
um erro na linha 220. Por que? 

Outra utilidade do VAL está no 
cálculo de expressões ou funções ma¬ 
temáticas. Por exemplo: 


IO SLOÜ 

20 PRINT "ENTRE COM UMR FUNCRO 
MRTEMRTICR OUE USE R URRIRUEL X 

30 INPUT 2$ 

4.0 PRINT Z í 
50 PRINT 

63 PRINT "ENTRE COM O URLOR OR 
URRIRUEL X- 
70 INPUT X 
75 PRINT X 
60 PRINT 

90 PRINT -URLOR CRLCULRDO" 

100 PRINT URL Zí 


Experimente entrar com "5*X**2- 
2*X + 7"; e 5 para X; o que você de¬ 
verá obter? 

Finalmente, apresentamos üm 
exemplo mostrando uma utilização de 
STRS (tecla Y) para obter o número 
de algarismos de um determinado nú¬ 
mero inteiro e obter alguns de seus dí¬ 
gitos separadamente: 


10 SLOU 

20 LET X*12345678 
30 PRINT -X='*;X 
40 LET R í bSTR$ X 
50 PRINT -Pí=“;ní 
60 PRINT LEN Rí 
70 PRINT Rí(4í 
80 PRINT Rí (2 TO 6) 

90 PRINT Rí Cl) +R$(3) +RÍ(5) 




J 


A variável X ocupa um espaço de 
memória para armazenar o número 
12.345.678: na linha 40 criamos a variá¬ 
vel AS que ocupa 8 espaços de memó¬ 
ria para armazenar os caracteres 1, 2, 
3,4, 5,6,7 e 8. 

Procure imaginar como seria com¬ 
plicado calcular o número de algaris¬ 
mos de dada variável aritmética ou 


''extrair" individualmente seus algaris¬ 
mos se não tivéssemos essas funções. 

Nota: Na aula 6 mostramos uma limi¬ 
tação da impressora do TK; usando 
STRINGs, ela pode ser eliminada. De 
fato, experimente: 


10 LET X=0.00001 
IS LET Xí=5TR$ X 
20 L PRINT Xí 


J 


Um jogo simples utilizando 
STRINGs: Forca 

Vamos apresentar agora uma ver¬ 
são bastante simplificada do jogo da 
forca, que apresenta algumas limita¬ 
ções mas é bastante útil no sentido 
de utilização de variáveis STRINGs. 


10 SLOU _ 

20 PRINT TRB 2; "QUfiL R PRLRURH 

>•» 

30 INPUT Pí 
40 CLS 

50 LET T =LEN Pí 
60 FOR 1=1 TO T 
70 PRINT RT 6,2*1;"*" 

80 NEXT I 
90 LET C=0 

100 PRIfíT RT 10,2; "LETRR5=?" 

110 INPUT Lí 

120 PRINT RT 10.2;--" 

130 FOR T=1 TO T 

140 IF PtíDoLt TMEN GOTO 170 

150 LET C=C+l 

160 PRINT RT 6,2*1; Lí. 

170 NEXT I 

160 IF CoT TMEN GOTO 100 

1S0 PRINT RT 10,2; "FIM DO JOGO” 


Você deve introduzir uma palavra (li¬ 
nha 30) e fazer com que outra pessoa 
tente "advinhar" a mesma. Note en¬ 
tretanto que nessa versão, do jogo você 
nunca perde . . . Estude com cuidado 
este programa e repare no uso da va¬ 
riável C como contadora para yerificar 
se você já acertou todas as letras; re¬ 
pare também na formatação das linhas 
70 e 160. Outro fato interessante é a 
possibilidade de se comparar STRINGs: 





































veja a linha 140 . . . Neste ponto você 
poderia se perguntar se, ao comparar 
duas STRINGs, pode-se falar em maior 
ou menor além de igual ou diferente. 
Felizmente, os códigos dos caracteres 
no TK estão colocados em ordem cres¬ 
cente para as letras seguindo a ordem 
do alfabeto; ao comparar STRINGs, o 
computador compara seus códigos. 
Assim, a letra A é "menor" que a letra 
B. Além disso, a palavra "BALA" é 
menor que "BOLA". De posse dessas 
informações, experimente então imple¬ 
mentar o programa de ordenação nu¬ 
mérica dado na aula 7 de forma que 
ele coloque em ordem atfabética, uma 
lista de palavras fornecidas por você. 
Perceba como estas funções que lidam 
com STRINGs facilitam enormemente 
o uso de arquivos de dados. 


A Função INKEYS 

0 TK possui uma função bastante 
interessante chamada INKEYS e que é 
útil para a realização de jogos anima¬ 
dos; seu efeito é similar ao INPUT, 
ou seja, ela aceita entrada de dados 
através do teclado; entretanto, ela só 
aceita STRINGs formadas por apenas 
um caractere. Em outras palavras, ela 
fornece a STRING correspondente à 


tecla que está sendo pressionada; além 
disso, ao contrário de INPUT, ela não 
interrompe a execução do programa: 
se no instante em que a instrução que 
contém INKEYS está sendo executada, 
uma tecla é pressionada, ela "entra" 
no computador; caso contrário, o pro¬ 
grama prossegue. Experimente então 
o seguinte programa (INKEYS está na 
tela B): 


Ao executar o programa, apare¬ 
cerá um "ponto" no centro da tela; 
experimente movimentá-lo utilizando 
as teclas 5,6,7 e 8 que correspondem 
às quatro direções indicadas pelas res¬ 
pectivas "flechas". Em aulas futuras 
veremos maiores detalhes sobre a fun¬ 
ção INKEYS. O que acontece se você 
tenta "sair" da tela? 

Exercícios 


r 


10 5LOU 
20 PR1NT 
30 PRINT INKEY % 
4-0 GOTO 20 


V 


J 


Digite RUN e NEW UNE. Come¬ 
çarão a ser impressos asteriscos; antes 
de acabar a tela, digite então qualquer 
tecla . . . experimente inclusive digitar 
NEW UNE e tente explicar o que ocor¬ 
re. 

Vamos agora "complicar" um 
pouco mais o exemplo: 


r 


i 

i 


i 


v 


10 SLOU 
20 LET X =31 
30 LET Y=£l 
40 PLOT X,Y 
50 IF INKEY**"5" 

60 IF INKEY*« , *a , ‘ 

70 IF INKEY$="6” 


©0 IF INKEY S = **7“ 
90 GOTO 40 


\ 

THEN LET X»X- 
THEN LET X»X+ 
THEN LET Y*Y- 
THEN LET Y=Y + 

J 


1) Nesta aula foi sugerido que vo¬ 
cê fizesse um programa que ordenasse 
em ordem alfabética, uma lista de pa¬ 
lavras; implemente então esse progra¬ 
ma para que, uma vez feita a lista, ele 
possibilite a inserção ou retirada de pa¬ 
lavras da mesma. 

2) Agora com relação ao progra¬ 
ma da Força, implemente-o para que 
ele limite o "número de tentativas" 
para que seja possível perder o jogo. 
Tente também fazer com que ele não 
aceite letras que já foram digitadas e 
que não aceite também mais de uma 
letra por vez. Quem sabe você conse¬ 
gue chegar até a desenhar a forca. 

3) Implemente o último programa 

da aula para que, usando as teclas 3, 
4, 9 e 0 você consiga movimentar o 
ponto nas diagonais. A seguir, faça 
com que a saída apresente linhas trace¬ 
jadas em vez de contínuas. n 
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CURSO DE ASSEMBLY 
aula 8 


Deslocamento de Blocos 


Deslocar blocos significa deslocar 
de uma só vez os conteúdos de uma 
grande quantidade de memória. Supo¬ 
nha que você tivesse uma sub-rotina 
razoavelmente grande (por exemplo de 
200 bytes) colocada a partir da memó¬ 
ria 30000 e você quisesse transferí-la 
para começar na memória 20000. Isto 
poderia ser feito com as instruções vis¬ 
tas até aqui porém, acarretando num 
trabalho razoavelmente grande; entre¬ 
tanto, ele pode ser amenizado parcial¬ 
mente utilizando a instrução LDI (Load 
With Increment) que transfere o con¬ 
teúdo da memória endereçada por DE 
e a seguir incrementa os pares DE e HL 
e decrementa o par BC, sem alterar o 
acumulador. 

0 código de LDI é 'EDA0'; dessa 
forma o programa de transferência po¬ 
deria ser escrito assim como na figu¬ 
ra 1. 

Entretanto, há uma maneira me¬ 
lhor de se usar a instrução LDIR onde 
R significa "repeat"; esta instrução 
executa o que a LDI faz, até que o 
valor do par BC seja zero (aqui pode¬ 
mos ver a utilidade do decremento de 
BC pela instrução LDI)! Assim, se qui¬ 
séssemos mover 200 bytes deveríamos 
fazer como na figura 2. 

Existem também as instruções 
LDD (código 'EDA8') e LDDR (código 
'EDB8') que em vez de incrementarem 
os pares de registros DE e HL, os de- 
crementam. (LDD = Load With De- 
crement). Nenhuma destas instruções 
afeta o valor do flag de CARRY. 


Aplicação prática: 

SCROLL eANTI SCROLL 

Vamos agora apresentar um pro¬ 
grama que nos permitirá fazer um 
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SCROLL ao contrário. Em outras pala¬ 
vras, vamos fazer a tela descer em vez 
de subir. Para que ele funcione, é ne¬ 
cessário ter uma expansão de memó¬ 
ria . 

Apenas uma prévia explicação 
quanto à tela: como todos sabemos, 
podemos imprimir até 22 linhas com 32 
caracteres cada uma; entretanto, no 
fim de cada linha o computador intro¬ 
duz um código de NEW LINE; portan¬ 
to, na memória , tela ocupa 22 x 33 = 
726 bytes; que são armazenados se- 
qüencia/men te. 

Observe o programa da figura 3 
(coloque-o a partir da memória 30000) 

A primeira instrução carrega 726 
em BC, que é o número de caracteres 
da tela (contando os espaços vazios e 
os NEW LINE). Nos endereços da 
RAM 16393 e 16397 está outra variável 
do programa INTERPRETADOR cha¬ 
mada D-FILE que contém o endereço 
inicial do conteúdo da tela na memória 
RAM, menos um; desta forma, ao 
carregarmos HL com o conteúdo de 
D-FILE, quando somamos 726, iremos 
calcular o endereço do último caracte¬ 
re da tela; este endereço é então colo¬ 
cado no par DE. 

Colocaremos agora em HL o en¬ 
dereço do caractere que será o úl¬ 
timo caractere da tela após fazermos 
este ANTI-SCROLL; ou seja, o ende¬ 
reço do último caractere da penúltima 
linha (pois a última será perdida), que 
seria D-FILE -f 21 x 33 = D-FILE + 
693 o que é feito carregando nova¬ 
mente HL com D-FILE e somando 693. 
Note que agora o "terreno" está pre¬ 
parado para a instrução LDDR, pois te¬ 
mos em BC precisamente o número de 
caracteres que deverão ser deslocados 
(693), em HL (fonte) o endereço do úl¬ 
timo caractere da 21? linha e em DE 


Flavio Rossini 

(destino) o endereço do último carac¬ 
tere da 22? linha; basta apenas "apa¬ 
gar" a 1? linha da tela, o que pode ser 
feito utilizando um PRINT AT 0, 0; "32 
espaços". Dessa forma, utilizando esta 
sub-rotina podemos fazer: 

( ^ 

3000 SLOU 

3O10 POR 1=1 TO 10O 

3020 PRINT PT USR 30000,0;*’- 


3030 PRINT I 
304-0 NEXT I 

V___/ 

Preste atenção à instrução 3020: 
qual o valor de BC no final da sub-ro¬ 
tina em linguagem de máquina? Será 0 
pois BC era o contador. Assim PRINT 
AT USR 30000,0 equivale a PRINT AT 
0,0 além de "chamar" a sub-rotina que 
está a partir da memória 30000. 

Façamos então uma outra sub-ro¬ 
tina em linguagem de máquina que 
produz o efeito de SCROLL normal; 
para isto devemos carregar o ponteiro 
de fonte (HL) com (D-FILE + 33) e o 
ponteiro destino (DE) com D-FILE (fi¬ 
gura 4). 

Note a maneira como 33 foi soma¬ 
do a HL. Isto porque não existe instru¬ 
ção para somar dados diretamente a 
pares de registros (ou seja, não existe a 
instrução ADD HL,33). 

Coloque este programa a partir da 
memória 31000 (basta fazer memória 
inicial = 31000 no programa HEXA- 
MEMj. 

Agora execute: 

c -^ 

299C 5LDU 

3000 FOR 1=1 TO 100 

3010 PRINT RT 21,USR 31000;”.... 


3020 PRINT RT 21,0;I 
3030 NEXT I 

V__ ) 

Você poderá fazer jogos gráficos 
emocionantes usando estas duas sub- 
rotinas: basta usar a imaginação . . . 














Exercícios: 


1) Faça um programa para fazer 
um SCRÓLL apenas da METADE 
SUPERIOR da tela, deixando o resto 
inalterado. Coloque-o a partir da me¬ 
mória 30000. 

2) Faça um programa para fazer 
um ANTI-SCROLL apenas da META¬ 
DE INFERIOR da tela, deixando o resto 


FIGURA 3 


FIGURA 4 


inalterado. Coloque-o a partir da me¬ 
mória 31000. 

3) Faça um programa que "en¬ 
cha" a tela de caracteres e, a seguir, 
"role" a tela para cima e para baixo sob 
o comando das teclas 6 e 7. Note que 
ao rolar a tela para cima, a primeira li¬ 
nha deve "reaparecer" na última e vi¬ 
ce-versa para baixo. 


PEQUENOS 



ANÜNCIOS 


VENDO ou TROCO programas 
para o TK. Os interessados escrevam 
para: Marcelo Nogueira Magalhães. 
Rua Castro Meireles, n? 240. Marapon- 
ga, Fortaleza, CE, CEP 60000. 

Se você tem TK 82 e TK-83 com 
expansão de 16 K e gostaria de salvar 
ou carregar seus programas em 30 se¬ 
gundos, escrevam para mim. Tony 
Shammo. Rua Apeninos, 451. São 
Paulo, SP, CEP 01533. 

VENDO TKS2C com Slow e ex¬ 
pansão de 16 K mais uma fita Scotch 
com os seguintes jogos: Redalerj; Cra- 
zy-Kong; Passagem para o Infinito; 
Forca e outros programas. Tratar com 
Marcos Roberto Guimarães — Rua 
José Pinto Coelho — Tel.: 285.3177 
de segunda a sexta das 9 às 15 horas. 
São Paulo. 

VENDO ou TROCO programas 
de jogos para TK-82, 83, 85 e CP-200 e 
similares. Rangei Cavalcante Filho — 
SQS 309 BI "A" 103 - Brasília, DF. 

VENDO uma fita cassete com pe¬ 
queno manual explicativo contendo 
dez programas de 1 K de memória, to¬ 
dos de minha autoria, dos quais sete 
são jogos. Podem ser carregados em 
qualquer equipamento da linha Sin¬ 
clair com ou sem SLOW. Tratar com 
Marcos Saito — Rua Visconde de Pi- 
rajá, 463, tel.: (011) 63.3324 - SP. 

TROCO programas (jogos e apli¬ 
cativos) para TK e similares. Os inte¬ 
ressados escrevam para Pedro José 
da C. e Si/va. Rua 223, n° 9. Confor¬ 
to, Volta Redonda — RJ — CEP 
27180. 

TROCO programas para TK/NE/ 
Sinclair. Mande uma fita com dois pro¬ 
gramas e receba-a de volta com mais 
dois programas à sua escolha. Escre¬ 
va. Carlos Sousa Oliveira. Rua Artur 
Prado, 57 - apt? 113. CEP 01322 - 
Bela Vista, SP. Fone: 289.3416. 

V _._ J 


FIGURAI 






LD 

DE,20000 

'11204E' 

carrega ponteios de memória 

LD 

HL,30000 

'213075' 


LDI 


'EDA0' 

faz transferência e incrementa ponteiro 

LDI 


'EDA0' 


LDI 


'EDA0' 



. . . e assim por diante . . . 200 vezes 


FIGURA 2 


(-D 

BC, 200 

'01C800' 

; carrega contador 


LD 

DE,20000 

'11204E' 

; carrega ponteiros de memória 


LD 

HL,30000 

'213075' 



LDIR 


'EDB0' 

; transfere, incrementa ponteiros, decrementa 

V 



o contador e checa o final do loop (BC 

-v 


f30000 

LD BC, 726 

'01D802' 

; carrega BC com o "tamanho" da tela 

30003 

LD HL,(16396) 

'2A0C40' 

; carrega em HL o valor de D-FILE 

30006 

ADD HL,BC 

'09' 

; soma HL com BC para obter o en¬ 
dereço do fim da tela 

30007 

LD D,H 

'54' 

; transfere para DE o endereço do fim 
da tela 

30008 

LD E,L 

'5D' 


30009 

LD BC,693 

'01B502' 

; carrega BC com o tamanho de 21 
linhas (21 x 23) 

30012 

LD HL,(16396) 

'2A0C40' 

; carrega em HL o valor de D-FILE 

30015 

ADD HL,BC 

'09' 

; soma HL com BC para obter o ende¬ 
reço do fim da penúltima linha 

30016 

LDDR 

'EDB8' 

; transfere HL para DE , decrementa 
ponteiros e contador e testa fim de 
LOOP (BC = 0) 

,30018 

RET 

'C9' 

J 


(30000 

LD DE,(16396) 

'EDB0C40' 

30004 

LD HL,(16396) 

'2A0C40' 

30007 

LD A,L 

'7D' 

30008 

ADD A,33 

'C621' 

30010 

LD L,A 

'6F' 

30011 

LD A,H 

'7C' 

30012 

ADC A,0 

'CE00' 

30014 

LD H,A 

'67' 

30015 

LD BC, 693 

'01B502' 

30018 

LDIR 

'EDB0' 

L 30020 

RET 

'C9' 


; carrega DE com D-FILE ' 

; idemparaHL 

; soma 33 a HL 

; transferência do "vai um" (CARRY) 

; carrega o contador 
; loop de transferência 

_ J 
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RESPOSTAS 
DO CURSO 
DE ASSEMBLY 


aulan?7 


1) 



20028 

LD (HL),A 

77 




20029 

LD A.0 

3E00 

30000 

LD BC.0 

01,0000 

20030 

ADC A.0 

CE 00 

30003 

LD HL0 

210000 

20033 

INC HL 

23 

30006 

ADD HL BC 

09 

20034 

INC BC 

03 

30007 

LDB.H 

44 

20035 

ADD A,(HL) 

86 

30006 

LDC.L 

4D 

20036 

LD (HL),A 

77 

30009 

RET 

C9 

20037 

LDA.IBC) 

0A 




20038 

ADD A,(HL) 

86 

2) 



20039 

LD(HL),A 

77 




20040 

LD A.0 

3E00 

5000 TNPUT R 

CrtAC TK1DI IT C 


20042 

ADC A.0 

CE 00 

5010 POKE 31001,R-256*INT (R/256 

20044 

INC HL 

23 


5015 POKE 31002 f INT <«/?.56) 

5020 POKE 31004- , B —256*INT (B/256 
) 


5025 POKE 31005,INT (B/256) 

5026 SCROLL 

5030 PR INT R; Bi " =s*‘; 

5035 PRINT USR 31000 

5038 SCROLL 

5040 PRIMT 

5050 GOTO 5000 

31000 

LD BC.0 

01 00 00 

31003 

LDHL0 

21 0000 

31006 

SBC HLBC 

ED42 

31008 

LD B.H 

44 

31009 

LDC.L 

4D 

31010 

RET 

C9 

3) 

20000 

LD DE, 20063 

115F4E 

20003 

LD HL20071 

21674E 

20006 

LD A,(DE) 

IA 

20007 

LD (HL),A 

77 

20008 

INC DE 

13 

20009 

INC HL 

23 

20010 

LD A,(DE) 

IA 

20011 

LD (HL),A 

77 

20012 

INC DE 

13 

20013 

INC HL 

23 

20014 

LD A,(DE) 

IA 

20015 

LD (HL),A 

77 

20016 

INC DE 

13 

20017 

INC HL 

23 

20018 

LD A,(DE) 

IA 

20019 

LD (HL),A 

77 

20020 

LD BC.20067 

01634E 

20023 

LD HL20071 

21 67 4E 

20026 

LD A, (BC) 

0A 

\20027 

ADD A.(HL) 

86 


20045 

20046 

20047 

20048 

20049 

20050 

20051 
20053 

20055 

20056 

20057 

20058 

20059 

20060 
20061 
20062 


INC BC 
ADDA.IHL) 
LD (HL),A 
LD A,(BC) 
ADD A, (HL) 
LD (HUA 
LD A.0 
ADC A.0 
INC HL 
INC BC 
ADD A,(HL) 
LD (HL),A 
LD A,(BC) 
ADD A,(HL) 
LD (HL),A 
RET 


03 

86 

77 

0A 

86 

77 

3E00 
CE 00 
23 
03 
86 
77 
0A 
86 
77 
C9 


Digite os códigos do programa em 
linguagem de máquina e depois digite 
este programa BASIC para testá-lo. 

1 DIM RC2) 

5 DIM B(4) 

1C FOR 1=1 TO 2 
20 INPUT R(I) 

25 LET C=fl(I) 

30 LET B (1)=IMT (C/16777216) 

35 LET C=C-16777216íB(l) 

4-0 LET £? (2) =INT (C/65536) 

4-5 LET C=C-65536*B(2) 

50 LET BC3)=INT (C/256) 

55 LET C=C-256iB(3) 

60 LET B(4)=C 

70 FOR F =4- TO 1 STEP -1 

60 POKE ((1-1)*4+5-P+20062),B( 

F) 

90 NEXT F 
10O NEXT I 
110 RflND USR 20000 
115 SCROLL 
120 PR INT .9(1) 

125 SCROLL 
130 PRINT R(2) 

135 SCROLL 

14-0 PR INT PEEK 20071 +256 *PEEK 2 
0072*65536 íPEEK 20073 + 167772161P 
EEK 20074 
145 SCROLL 
150 RUM 


antei 


PROJETOS E MANUTENÇÃO 

VÍDEO CASSETE E CÂMARA 

UMATIC - VHS - BETA 
PAL-M - N-LINHA e NTSC 

MESMO SISTEMA EUROPEU 

Transcrição de Filme 

PAL-Ge SECAM 

(SERVIÇO IMEDIATO) 

Video Game e Cartuchos para: 

ATARI-COLECO e ODYSSEY 

Atendemos todo o Brasil 

(via reembolso) _ 


Avenida Uberdade. 867 

Tel. 270-4944-SP 

Av. Briq. Faria Urna. 1132 -L 36 

Tel. 8Í5-5901 -SP 
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Quem é você ? IM m ^ 
O que você espera de nós ? 


Estas perguntas são imprecindíveis pá¬ 
ra podermos iniciar um diálogo mais sé¬ 
rio, uma vez que queremos que a Micro- 
hobby seja o seu livro de cabeceira (ou 
melhor, o livro de cabeceira do seu mi¬ 
cro). 

Tentamos fazer isso da melhor maneira 


possível, através das cartas que nos tem 
chegado, com elogios, críticas e suges¬ 
tões. Porém, sentimos que isso não é sufi¬ 
ciente e resolvemos fazer uma pesquisa. 

A seguir, você encontrará uma série 
de perguntas que você pode responder 
anonimamente ou não (o preenchimento 


do nome é opcional). Além disso, você 
terá oportunidade de criticar-nos e dar 
sugestões que nos serão valiosas. É 
MUITO IMPORTANTE QUE VOCÉ 
RESPONDA A ESTE QUESTIONÁRIO. 
Afinal, trata-se de sua revista e queremos 
ouvi-lo para traçar o nosso rumo futu¬ 
ro!... 


r -\ 

Nome: (opcional) 

Residência- (opcional) 

Qual a cidade e o estado onde você mora? 


J 

ATIX/IDADF PROFISSIONAI 


CAIVA CTÁDIA. 

a) Atividades ligadas a processamento de dados: ^ 

□ Digitador 

□ Programador 

□ Analista de Sistemas 

□ Outros (especificar) 


□ menos de 14 anos 

□ de 14 a 18 anos 

□ de 19 a 25 anos 

□ de 25 a 30 anos 

□ de 31 a 35 anos 

□ maior que 35 anos 


b) Profissionais liberais: 

□ Advogado 

□ Dentista 

□ Médico 


— COMO MIPROHORRY PHFfí A A c»i i ac m ãqo-> 


□ Assinatura 

□ Outros (especificar) \ 

(especificar a partir de que número é assinante) 

□ Bancas 

□ Empréstimo 

^ y 

c) Área Técnica: 

□ Técnico 

□ Engenheiro 

Área _ 


rniMTFiinn fhitorí ai • 


□ permanecer como está 

□ abranger outros computadores 

□ dedicar-se mais a principiantes 

□ maior números de aplicativos 

□ maior número de jogos 

□ outros (especificar) 

□ Outros (especificar) 


d) Estudante: 

□ 1 grau 

□ 11 grau 

□ Superior 

1 PAc CX rorl 11opon • 

Curso* 






J 

L J 

o OUF VOCÊ S l,r íFRF PARA 

ME 

: LHORAR A MICROMORRY 0 
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Extensivo do Anglo: 
partida em 3 horários 

para as 

melhores faculdades. 



O Anglo manhã é o curso ideal para você que já terminou o 
colegial e pode dar o máximo de si no vestibular. 



O Anglo tarde é um curso especialmente planejado para quem 
faz coléqio de manhã. __ 



O Anglo noite é um curso que respeita quem trabalha e quer 
entrar na faculdade. 


PRÓXIMAS PARTIDAS: 
EM MAIO 



endereços: R. Tamandaré, 596 - SP. 
R. Sergipe, 58 - SP. 






O TK 83 já ensinou mais de 2 milhões de pessoas. 

Ele é muito fácil de operar. Usa o Basic, e a memória chega 
até 64 K bytes, e aceita monitor, impressora e joystick. 

Num instante você vai estar resolvendo problemas 
programando, ou vencendo os muitos jogos disponíveis. O 
TK 83 nõo ésóa melhor iniciação. Também é a mais divertida. 


Com o TK 85 você também pode se divertir muito: ele 
tem dezenas de jogos disponíveis. 

Mas ele já é mais sofisticado. Tem software já pronto. 
Linguagens Basic e Assembler. Teclado tipo máquina de 
escrever, com 40 teclas e 160 funções. 16 ou 48 K de 
memória RAM, e 10 de ROM. Gravação em high-speed, 
e função Verify, para maior segurança. 

Quando você já estiver apaixonado por 
microcomputação, ele vai corresponder totalmente. 



Aqui você mostra 
tudo o que sabe. 



SBo Paulo ■ SP Telex n«. (011) 37008MIDE 


Mlcrodlgltal Eletrônica LU 
Caixa Postal 54121 ■ CEP 01000 


À venda nas boas casas do ramo, lojas especializadas de fotovideo-som e grandes magazines em: ALAGOAS - Maceió, Palmeira dos índios, AMAZONAS - Manaus, BAHIA ■ Salvador, CEARÁ - Forta¬ 
leza, DISTRITO FEDERAL - Brasília, ESPÍRITO SANTO - Vitória, GOIÁS - Goiânia, MATO GROSSO - Cuiabá, MINAS GERAIS - Belo Horizonte, Divinópolis, Itajuba, Juiz de Fora, Poços de Caldas, Soo 
João Del Rei, Teófilo Otoni, Uberlândia, Uberaba, Viçosa, PARAÍBA - Campina Grande, PARÁ - Belém, PARANÁ - Curitiba, Londrina, Maringá, PERNAMBUCO - Recife, RIO DE JANEIRO - Campos, Ni¬ 
terói, Nova Friburgo, Petrópolis, Rezende, Rio de Janeiro, Volta Redonda, RIO GRANDE DO SUL - Bagé, Canoas, Caxias do Sul, Ijuí, Novo Hamburgo. Pelotas, Porto Alegre, SantAnna do Livramen¬ 
to, Santiago, Santa Rosa, São Leopoldo, RIO GRANDE DO NORTE - Natal, RONDÔNIA - Porto Velho, SÃO PAULO - Araraquara, Assis, Avaré, Bauru, Birigui, Botucatu, Campinas. Catanduva, Franca, 
Guarulhos, Itu, Jacarei, Jaú, Limeira. Lins, Marilia, Mogi Guaçu, Mogi das Cruzes, Ourinhos, Piracicaba, Pirassununga, Promissão, Rio Claro, Ribeirão Preto, Santos. Santa Barb. d'Oeste, São Ber¬ 
nardo do Campo, Sâo João da Boa Vista, São Sebs da Grama, São Carlos, São José do Rio Preto, São José dos Campos, St? André, São Paulo, Sorocaba, Suzano, Taubaté, SANTA CATARINA - Blume¬ 
nau, Brusque, Florinópolis, Itajaí, Joinville, SERGIPE - Aracaju, Se você não encontrar este equipamento na sua cidade ligue para (011) 800 - 255.8583 


O TK 2000 Color tem tudo que os 
melhores micros têm. Menos o preço. 
Aceita diskette, impressora (já vem com 
interface), alta resolução gráfica à cores 
podendo ser ligado ao seu TV colorido 
ou P&B. Tem 64 k de memória RAM e 
16 k de memória ROM. Com excelente 
software disponível. 

Você poete mostrar tudo o que sabe. 
Sem precisar mostrar muito dinheiro. 


/HICROCHGIMl 
























0 1 2 3 4 5 6 


micromega 


MICROMEGA Publicações e Material Didático Ltda. 

Caixa Postal 54096 - CEP 01296 - São Paulo - SP 
CGC.: 52.275.724/0001-41 - Inscr. Est.: 110.862.362 



PEDIDO DE LIVROS E NÚMEROS ATRASADOS 


Quantidade 

Especificação 

-! 

até 30/04/84 

i- 

até 31/07/84 


Linguagem de máquina 
para o TK 

Cr$ 8.000,00 

?.?í)o,oo 


Curso de jogos 
em Basic TK 

Cr$ 3.400,00 

4- y ocjoo 


Coleção de programas vol. 1 

Cr$ 3.800,00 

O.5°o,oo 


Coleção de programas vol.ll 

Cr$ 4.000,00 



Basic TK 

Cr$ 5.000,00 

é.fOQoO 


N9s atrasados 
(n? 2, n? 4, n? 6 ) 

Cr$ 1 600,00 


Fita com São Paulo (1 k) 
e Mansão Maluca 

Cr$ 6.000,00 


Fita com Pulga (2k) 
e Simulador de Vôo (16k) 

Cr$ 6.000,00 

Total 






./ _ ! _ _ 

Data ASSINATURA 

Envie seu cheque nominal e cruzado, ou vale 
postal para Micromega P.M.D. Ltda. 

Caixa Postal 54096- CEP 01296 - São Paulo - SP 

□ em cheque nominal n?_Banco_ 

I I vale postal 


Aguarde em média 30 dias para 
atendimento do pedido. 


NâodeixBde 

ler estes livros. 

", 


BASCTK 


vw / usmMiAK MAZZmossiNI 


Basic TK 



Um livro destinado a quem se interes¬ 
sa em aprender a linguagem do compu¬ 
tador TK82-C, 83, 85, CP-200, Ringo, 
AS-1000 e outros compatíveis com a ló¬ 
gica Sinclair. Complementando os ma¬ 
nuais destes computadores, o livro 
BASIC TK é um auxiliar útil mesmo para 
os que já possuem alguns conhecimentos 
sobre sua máquina. 



Unguagem de máquina para o TK 


Programar em linguagem de máquina 
nos permite criar programas muito mais 
rápidos e versáteis que os programados 
em BASIC. O livro LINGUAGEM DE 
MÁQUINA PARA O TK ensina, passo a 
passo e de uma maneira muito leve os se¬ 
gredos desta arte, tornando-o capaz de 
elaborar jogos e aplicativos nesta moda¬ 
lidade de programação. 



-:- 

_ 


COLEÇÃO DE 
PROGRAMAS 

VOl 1 

Coleção de programas vol. 1 e II 


* 0 ? 

v # 

* s 

Programas de toda? as modalidades e 
para todas as idades. E um livro ideal pa¬ 
ra você que gosta de programas "prontos 
para uso" Dara o seu comDutador. 

_ 

_ 


i ____ 



Curso de Jogos para o TK 


«, mm 

Certamente os jogos de vídeo são a 
coquelüche do momento. Que tal você 
mesmo bolar seus jogos em seu TK ou 
compatível? Este livro lhe dá fundamen¬ 
tos para que você possa iniciar-se neste 
fascinante hobby. 
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MICROMEGA Publicações e Material Didático Ltda. 

Caixa Postal 54096 - CEP 01296 - São PauJo - SP 
CGC.: 52.275.724/0001-41 - Inscr. Est.: 110.862.362 


Desejo assinar a Revista MICROHOBBY (12 edições) 


NOME 


ENDEREÇO 

n.° assinatura 



































CEP 







CIDADE 

TELEFONE 


























Estou anexando a quantia de Cr$ S£QQ£ a _□ em cheque nominal 

para MICROMEGA P.M.D. Ltda., referente a venda de uma assinatura. va,e postal 

em cheque nominal n.°- Banco - 

Data_ L _ L _ Válido até 30/06/84 



ASSINATURA 


ESTE CARTÃO NÃO PODE SER 
UTILIZADO POR TERCEIROS PARA 
COLETA DE ASSINATURAS 
Válido somente se postado diretamente 
pelo assinante. 



A REVISTA DOS USUÁRIOS DO TK 

d )(cw ü 

DVD 


cada vez melhor! 


Faça sua assinatura, preenchendo o cupom anexo e ganhe uma tabela com informações 
utilíssimas para o usuário do TK e compatíveis, tais como mapa da RAM, tabela de 
conversão decimal para hexadecimal, etc. Além disso você receberá um exemplar da 
edição especial da MICROHOBBY contendo os melhores programas já publicados. 


O que contém uma fita com programas? Programas. Programas 
aplicativos ou jogos. Entretanto, estas fitas, embora possam 
proporcionar uma série de funções úteis, fornecem como informação 
extra apenas uma listagem, que nem sempre é esclarecedora. 


Além disso, a Microhobby é uma revista didática, destinada a 
programadores em vários niveis, desde o principiante até o hobbysta 
mais ousado, que se aventure a programar em linguagem de máquina. 

Receba em sua casa a revista que contém programas, informações, dicas e tudo que você 
quiser saber sobre microcomputadores e programação. 































































































































